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‘WHEN YOU CARE ENOUGH TO PROGRAM 
THE VERY BEST" 

ZGRASS V2.OOOOOOOO 

FENTON, NGLA DONATO, AND TOM DEFANTI 
(C) 1978 


©/ 

.INSERT A:ZRAM.ASM 
. PREL 

..IDENT EDITOR 
.INTERN EDIT 
.EXTERN ALSTS 
.EXTERN ARG 
.EXTERN BLDBOX 
.EXTERN CNTCK 
.EXTERN CPHLDE 
.EXTERN DCHAR 
.EXTERN DIV16 
.EXTERN ERRPGM 

- .EXTERN EXP 

„EXTERN GETCH • 

„EXTERN GETCX* 

.EXTERN GETCY- 
.EXTERN INCUSE 
.EXTERN NXTVAL 
.EXTERN PUTCUR* 

.EXTERN RESCX* 

.EXTERN RESCXY• 

.EXTERN RESCY • 

.EXTERN SCROLE 
.EXTERN SDEL 
.EXTERN SETCX' 

.EXTERN SETCY* 

00IB ESCAPE*1BH 

5 ZGRASS EDITOR 

M.CMDCEDIT,.. EDX,0,EXP,».EDA,..EDI 1 C 
0000-' 18 " +EDITS .BYTE f CM DA DR 

0001" 09 + .BYTE (..EDX-ED1T >/16+1 

0002-' 00 + .BYTE 0 

0003-' 0000sOC + .WORD EXP 
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0005- 

OOOE-- 

+ 

.WORD . 

.EDI 

0007* 

0011 •- 

4 

.WORD . 

. EDA 

0009“ 

45444954 OO 

4 

„L. "I 

.ASCIZ 

/EDIT/ 

000E“ 

CD 0000s05 

» » ED I s 

CALL 

ARG 

0011 • 

OAOO 

..EDA5 

„ BYTE 

$NAME i $TAF 

0013- 

E5 


PUSH 

H 

0014- 

FD6E01 


MOV 

L 7 1 < Y) 

0017- 

FD6602 


MOV 

H 7 2 (Y) 

001 A- 

22 64A1 


SHLD 

EDNAME 

00 ID- 

7E 


MOV 

A 7 M 

001E- 

FE02 


CPI 

$NULL 

0020“ 

2020 


.JRNZ 

. . NOTN 



? CREATE A NULL 

STRING AND MAKE THE NAME POINT AT IT 

0022- 

3E01 


MV I 

A, 1 

0024- 

CD 0000 s 04 


CALL 

ALSTS 

0027- 

E5 


PUSH 

H 

0028- 

AF 


XRA 

A 

0029 • 

12 


STAX 

D 

002A" 

IB 


DCX 

D 

002B • 

12 


STAX 

D ? GET EARLIER CHAR TOO 

0.Q2C “ 

11 0006 


LX I 

D,$SLEN 

002F- 

19 


DAD 

D 

0030" 

77 


MOV 

M, A 

0031- 

«!m« 


I NX 

H 

0032- 

77 


MOV 

M,A 

0033 - 

2A 64A1 


LHLD 

EDNAME 

0036" 

D.1 


POP 

D 

0037 - 

E5 


PUSH 

H 

0038 - 

360A 


MV I 

M,&NAMADR 

003A- 

01 0005 


LX I 

B,$NVALUE 

003D - 

09 


DAD 

B 

003E - 

73 


MOV 

M,E 

003F- 

23 


I NX 

H 

0040" 

72- 


MOV 

M 7 D 

0041- 

El 


POP 

H 



? MAKE 

DAMN SURE WE GOT A STRING 

0042" 

CD 0000511 

. . NOTNs 

CALL 

NXTVAL 

0045' 

22 681A 


SHLD 

EDSTR 

0048" 

7E 


MOV 

A, M 

0049 ' 

A7 

- \ 

ANA 

A 

004A- 

FE08 


CPI 

$STRADR 




NZERROR 

ER.FNF L 

0040- 

2804 


JRZ ..0001 

004E" 

CD 0000 s OB 

4* 

CALL ERRPGM 

0051" 

1C 

+ 

.BYTE ER.FNF 

0052- 


+.«oooi s 

1 




? INITIALIZE OODLES OF POINTERS 

0052" 

DD21 67CD 


LX I 

X,SCRWIN 

0056 -' 

AF 


XRA 

A 

0057- 

32 681C 


ST A 

EDMODE 

005A - 

01 OOOA 


lx i >; 

B, m ASCII 

005D- 

09 


DAD 

B 

005E - 

22 6818 


SHLD 

TOP 

0061- 

22 64A3 


SHLD 

FIRST 
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0064-' 

22 64A5 

SHLD 

CURRENT 

0067- 

22 64A7 

SHLD 

POINTER 



5 GET ACCURATE 

COUNT ON STRING 1 

006A- 

11 0000 

L.X I 

D 1 0 

006D- 

7E 

..CNTLs MOV 

At M 

006E" 

A7 

ANA 

A 

006F" 

2804 

•JRZ 

..GOTN 

0071- 

13 

I NX 

D 

0072" 

4 1^1.0 

INX 

H 

0073" 

IP'FR 

JMPR 

..CNTL 

0075- 

ED53 6800 

. u GOTNs SDED 

STRSIZ 

0079" 

CD 03AC- 

CALL 

REPAINT 

007Q 

CD 0000!14 

CALL 

RESCXY 

007F - 

CD 0000!12 

CALL 

PUTCUR 



5 EDITOR CHARACTER GET AND DOIT 

0082 - 

CD 0000!07 

. . LOOP! CALL 

CNTCK 

0085- 

CD 0000SOD 

CALL 

GETCH 

0088 - 

CD 008D- 

CALL 

EDDISP 

008B - 

18F5 

JMPR 

. LOOP 

008D - 


. »EDX! 

5 ROUTINE TO DI 
ACTER 

SPATCH ON INPUT i 

008D - 


EDDISPs 


008D - 

28 IF 

JRZ 

..BIZR 

008F- 

060A 

MV I 

B, 10 

0091 - 

21 00E3- 

LX I 

H t EDCUNT 

0094 - 

BE 

.„GETA! CMP 

M 

0095- 

23 

INX 

H 

0096 - 

2009 

JRNZ 

..NOEQ 

0098- 

5E 

MOV 

E,M 

0099" 


INX 

H 

009A - 

56 

MOV 

D» M 

009B- 

AF 

XRA 

A 

009C - 

32 681C 

STA 

EDMODE 

009F- 

EB 

XCHG 


OOAO - 

E9 

PCHL 


00 A1 - 

23 

.»NOEQ! INX 

H 

00A2 - 

23 

INX 

H 

00A3- 

1OEF 

DJNZ 

..GETA 

00A5- 

A7 

ANA 

A 

00A6 - 

C2 014D- 

JNZ 

INSREP 

00A9" 

3E0A 

MVl 

At NL 

OOAB- 

C3 014D- 

JMP 

INSREP 



5 CHECK TOMMYS 

WIERDO TABLE 

00 AE - 

21 00C7- 

. .BIZR! LX I 

HtEDCLIT 

00B1 - 

0607 

MV I 

B, 7 

0GB3- 

5E 

..GETZ: MOV 

E, M 

00B4- 


INX 

H 

00B5- 

56 

MOV 

Dt M 

OOB6 " 

23 

INX 

H 

00B7 - 

1A 

LDAX 

D 5 GET I 

00B8- 

A 7 

ANA 

A ! ZERO'? 

00B9 - 

2807 

JRZ 

,, . NOT Z 

OOBB - 

AF 

XRA 

A 

OOBC- 

12 

STAX 

D 


LENGTH 


LOOP 


OR CONTROL < 


JHAR 
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OOBD "' 

5E 

MOV 

Ei M 

00 BE-' 

Z ♦«* 

INK 

H 

OOBF 

56 

MOV 

D,M 

OOCO •" 

EB 

XCHG 


ooci 

E9 

PCHL 


0002 *' 

Z-3 

..MOTZs INX 

H 

00C3 ” 

oo 

I NX 

H 

00C4" 

1OED 

DJNZ 

... j—• -j-- —i 

u u Ub. 1 Z 

00C6 

C9 

RET 




5 OLD KEYBOARD 

TABLE 

0007"' 


EDCLIT* 


0007-' 

65D2 0101 

" WORD FCNTH, 

CURBAC 

OOCB" 

65D4 0119 

" WORD FONT J i 

CURDWN 

OOCF 

65D3 0123 

" WORD FONTI? 

INSERT 

OUDc» ** 

65D5 0111 

" WORD FCNTK, 

CURUP 

00D7-' 

&5D6 0109 

" WORD FCNTLt 

CURFOR 

OODB" 

S5E0 018F 

" WORD FONTVi 

DELLIN 

OODF-" 

65E3 012E 

WORD FCNTY, 

DELCHR 



5 DISPATCH TABLE 

00E3 


EDCUNT 5 


00E3 - " 

IB 

. BYTE 

ESCAPE 

00E4*’ 

01CE" 

* WORD 

INSLIN 

00E6" 

SO 

. BYTE 

80H 

00E7 •" 

0111 "• 

„ WORD 

CURUP 

00E9 

81 

. BYTE 

81H 

OOEA 

0119" 

„ WORD 

CURDWN 

OOEC 

Q9 

W Mm. 

.BYTE 

82H 

OOED "' 

0101 "• 

« WORD 

CURBAC 

OOEF - " 

83 

.BYTE 

83H 

OOF O' 

0109" 

„ WORD 

CURFOR 

00F2" 

04 

.BYTE 

84H 

00F3'" 

0123" 

„ WORD 

INSERT 

00F5-' 

85 

. BYTE 

85H 

OOFS '" 

01CE '" 

„ WORD 

INSLIN 

OOFS" 

86 

. BYTE 

86 H 

00F9 "' 

012E'" 

„ WORD 

DELCHR 

OOFS'" 

71- 

.BYTE 

RUBOUT 

OOFC'" 

0129"' 

„ WORD 

BAGDEL 

OOFE'" 

15 

. BYTE 

CMTRLJJ 

OOFF'" 

018F "' 

„ WORD 

DELLIN 

0101" 

CD 0000s12 

CURBACS CALL 

PUTCUR 

0104" 

CD 047A" 

CALL 

BACKG 

0107'" 

1816 

•JMF'R 

PCRET 

0109'" 

CD 0000.12 

CURFORs CALL 

PUTCUR 

0100'" 

CD 03E6" 

CURFOls CALL 

F'ORWC 

01 OF '" 

180E 

•JMF'R 

PCRET 

0111'" 

CD 0000s12 

CURUF'S CALL 

PUTCUR 

0114" 

CD 049B"' 

CALL 

BACKL 

0117" 

1806 

JMF'R 

PCRET 

0119'" 

CD 0000s12 

CURDWNs CALL 

PUTCUR 

Oil O'" 

CD 03FE"' 

CURDWls CALL 

FORWL 

01 IF" 

CD 0000s12 

PCRETs CALL 

PUTCUR 

0122'" 

C9 

RET 


0123'" 

3E01 

INSERTS MVI 

A i 1 

0125'" 

32 681C 

STA 

EDMODE 


.hk/ 

l 


sf * 
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0128 " 09 ENDINSs RET 

? BACKWARDS DELETE A CHARACTER 


0129" 

CD 012E" 

BACDELs CALL 

DELCHR 

012C-" 

18D3 


.JMF’R 

CURBAC 




DELETE A CHARACTER! 

012E 

2A 64A7 

DELCHRs LHLD 

POINTER 

0131" 

7E 


MOV 

A,M 

0132" 

A7 


ANA 

A 

0133" 

C8 


RZ 


0134-' 

CD 0000s12 


CALL 

P1JTCUR 

0137- 

3E02 


MVI 

A, 2 

0139". 

32 6812 


STA 

EDLONG 

0130" 

01 FFFF 


L..XI 

Eg -1 

013F" 

CD 01E8" 


CALL 

GNSTR 

0142" 

23 


INX 

H 

0143-' 

CD 0261" 


CALL 

COPON 

0146" 

CD 0269" 


CALL 

SUPDAT 

0149" 

CD 0000S12 


CALL 

PUTCUR 

014C-' 

C9 


RET 




a 

V 

” 

INSERT - REPLACE CHARACTER 



u 

IF POINTING 

AT NULL - INSERT 

0140" 

F5 

INSREPs PUSH 

PSW 

014E-' 

CD 0000s12 


CALL 

PUTCUR 

0151" 

3E01 


MVI 

A, 1 

0153-' 

oo © i •”:« 

*aL UU 4. .Cm 


STA 

EDLONG 

0156" 

2A 64A7 


LHLD 

POINTER 

0159-' 

7E 


MOV 

Aj m 

015 A " 

A7 


ANA 

A 

015B-' 

281C 


■JRZ 

. . INS 

015D" 

FEOA 


CPI 

NL 

015F-' 

2818 


■JRZ 

a. INS 

01.61"' 

3A 681C 


LDA 

EDMODE 

0164" 

A7 


ANA 

A 

0165" 

2012 


JRNZ 

. . INS 



tt 

? 

REPLACE 




It 

7 

TRANSLATE REPLACE OF CR INTO 

0167" 

FI 


POP 

PSW 

0163" 

FEOA 


CPI 

NL 

016A" 

CA 011C" 


JZ 

CURDW1 

0160" 

F5 


PUSH 

PSW 

016E" 

01 0000 


LX I 

B,0 

0171 -' 

CD 01E8" 


CALL 

GNSTR 

0174" 

FI 


POP 

PSW 

0175" 

12 


STAX 

D 

0176" 

23 


INX 

H 

0177" 

180C 


JMPR 

..JOIN 



■ n 

INSERT 


0179" 

01 0001 

» 

. INS: LX I 

Bj 1 

017C" 

79 


MOV 

Aj C 

017D " 

32 681C 


STA 

EDMODE 

0180 " 

CD 01E8" 


CALL 

GNSTR 

0183" 

FI 


POP 

PSW 

0184" 

12 


STAX 

D 

0185" 

13 


.JOINS INX 

D 


PAGE 


5 QUIT IF AT NULL 
; ERASE CURSE 

5 -1 SIZE CHANGE 


; OR POINTING AT CR 

DOWN A LINE 


? C=1 !!! 

5 SET INSERTETH FLAG 



PAGE 
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o i 6 * 

CD 0261 - " 

CALL 

COPON 

0189 " 

CD 0269' 

CALL 

SUPDAT 

01 sc •" 

C3 010C-' 

•JMF‘ 

CURF01 

018F 

2A 64A5 

DELL IMS L.HL.D 

CURRENT 

0192-' 

22 64A7 

SHLD 

POINTER 

0195 •" 

7E 

MOV 

A,M 

u 1 v£* *’ 

A7 

ANA 

A 

0197-' 

C8 

RZ 


0198 ** 

E5 

PUSH 

H 

0199 

CD 0000s12 

CALL 

PUTCUR 

019C-' 

CD 0000s13 

CALL 

RESCX 

019F" 

01 0000 

LX I 

BiO 

01A2-' 

El 

POP 

H 

01 A3 - - 

7E 

..LOOPS MOV 

A,M 

01A4-' 

A7 

ANA 

A 

01A5 -' 

2808 

•JRZ 

. .HIT 

01A7 •" 

03 

IN.X 

B 

01 AS-' 

FEOA 

CPI 

ML. 

01A A ■' 

2803 

■JRZ 

. .HIT 

01 AC-' 

23 

INX 

H 

01 AD ■' 

18F4 

JMPR 

. . LOOP 

01AF-' 

C5 

..HITS PUSH 

B 

01 BO-' 

CD 01C6" 

CALL 

NEGBC 

01B3-' 

3E02 

MVI 

A i 2 

01B5 -' 

32 6812 

STA 

EDLONG 

01B8 -’ 

CD 01E8 

CALL 

GNSTR 

OJ.BB-' 

Cl 

POP 

B 

01BC •' 

09 

DAD 

B 

01BD " 

CD 0261 - " 

CALL 

COPON 

01 CO - " 

CD 0269-' 

CALL 

SUPDAT 

01C3 -' 

C3 011F •" 

JMP 

PCRET 



5 NEGATE BC 


01C6 - " 

78 

NEGBC s MOV 

A,B 

01C7-' 

2F 

CMA 


01C8 •" 

47 

MOV 

Bi A 

01C9" 

79 

MOV 

A 7 C 

01CA" 

2F 

CMA 


01CB - - 

4F 

MOV 

L* 7 A 

01 cc ■" 

03 

INX 

B 

01 CD " 

C9 

RET 




5 INSERT A LINE 


01CE - " 

CD OOOOs12 

INSLINs CALL 

PUTCUR 

01D1 •" 

CD OOOOs13 

CALL. 

RESCX 

01D4 - " 

2A 64A5 

LHLD 

CURRENT 

01D7-" 

22 64-A7 

SHLD 

POINTER 

01 Et A •" 

CD 03FE-' 

uaLl 

FORWL 



; INSERT A CR -- 

TURN ON INSERT MODE 

01DD-' 

CD 0123" 

CALL 

INSERT 

01EO 

3E0A 

MVI 

A 7 NL 

01E2-' 

CD 014D -' 

CALL 

INSREP 

01E5-" 

C3 OlOl - " 

JMP 

CURBAC 



S GET NEW STRING 



5 INPUTS BC=DES 

IRED SIZE DIFERENTIAL 

01E8 -' 

2A 6800 

GNSTRs LHLD 

STRSIZ 

01EB •" 

09 

DAD 

B 






PAGE 7 


TDL ZSO.GP/M DISK ASSEMBLER VERSION 2.21 
EDITOR - 


01 EC-' 

22 6800 

SHLD 

STRSIZ 

01EF*“ 

C5 

PUSH 

B 

01 FO"' 

01 oooc 

LX I 

B»$SASC 

01F3'" 

09 

DAD 

B 

01F4 •" 

CD 0000:0A 

CALL 

DIV16 

01 F7 *“ 

CD 0000:04 

CALL 

ALSTS 

01 FA" 

22 6802 

SHLD 

NSADDR 

01FD"' 

Cl 

POP 

B 

01FE-V 

05 

PUSH 

D 

01 FF *“ 

2 A 6818 

LHLD 

TOP 

0202 *“ 

ED5B 64A3 

LDED 

FIRST 

0206“ 

A7 

ANA 

A 

0207 

ED52 

DSBC 

D 

0209“ 

Dl 

POP 

D 

020 A" 

05 

PUSH 

D 

020 Ef' 

19 

DAD 

D 

020C 

22 6818 

SHLD 

TOP 

020F" 

2A 64A5 

LHLD 

CURRENT 

0212 “ 

ED5B 64A3 

LDED 

FIRST 

0216 “ 

A7 

ANA 

A 

0217-' 

ED52 

DSBC 

D 

0219" 

Dl 

POP 

D 

021 A" 

D5 

PUSH 

D 

02 IB"' 

19 

DAD 

D 

021C" 

22 64A5 

SHLD 

CURRENT 

02 IF"' 

2A 64A9 

LHLD 

BOTTOM 

0222 < 

ED5B 64A3 

LDED 

FIRST 

0226 

A7 

ANA 

A 

0227" 

ED52 

DSBC 

D 

0229 •" 

Dl 

POP 

D 

022 A"' 

D5 

PUSH 

D 

022B-" 

19 

DAD 

D 

022C •" 

ED5B 64A5 

LDED 

CURRENT 

0230'" 

CD 0000s 08 

CALL 

CF'HLDE 

0233"' 

2801 

JRZ 

. . SKUK 

0235'" 

09 

DAD 

B 

0236"' 

Dl 

..SKUKs POP 

D 

0237" 

22 64A9 

SHLD 

BOTTOM 

023A-" 

22 6810 

SHLD 

NEWBOT 

023D " 

2A 64A3 

LHLD 

FIRST 

0240 " 

ED53 64A3 

SDED 

FIRST 

0244' 

D5 

..CLOP: PUSH 

D 

0245/ 

ED5B 64A7 

LDED 

POINTER 

0249" 

CD 0000:08 

l all 

; CF'HLDE 

024C " 

Dl 

POP' 

D 

024D" 

2806 

JRZ 

„ . CORD 

024F •" 

7E 

MOV 

A* M 

0250"' 

12 

STAX 

" D 

0251 "' 

13 

I NX 

D 

0252" 

23 

I NX 

H 

0253 "' 

18EF 

JMPR 

..CLOP 

0255"' 

22 6804 

. . COP’D: SHLD 

EDPO 

0258"' 

ED53 6806 

SDED 

EDF’M 

025C " 

ED53 64A7 

SDED 

POINTER 

0260"' 

C9 

RET 






PAGE 
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ROUTINE 
HL=OLDj 


TO 

DE¬ 


COPY 

: NEW 


OLD TO NEW UNTIL NULL HIT 


0261 

7E 

COPONs MOV 

A,M 

0262" 

1 .«£. 

STAX 

D 

0263 y 

A7 

ANA 

A 

0264- 

08 

RZ 


0265-' 

13 

I NX 

D 

0266" 

28 

I NX 

H 

0267- 

18F8 

JMPR 

eopoN 



? ROUTINE TO ! 
E 

UPDATE THE 

0269 *" 


SUPDATs 


0269-' 

CD 0000sQE 

CALL 

GETCX 

0260" 

ED53 6814 

SDED 

CURCX 

0270" 

CD 0000 s OF 

CALL 

GETCY 

0273" 

ED53 6816 

SDED 

CURCY 

0277-' 

CD 036F"' 

/ CALL 

PNCXY 

027A" 

CD 035E •" 

CALL- 

POCXY 

027LV" 

CD 02B6 *" 

CALL 

RETYPE 

02&0 * 

ED5B 6814 

LDED 

CURCX 

0284-' 

CD 0000“18 

CALL 

SETCX 

0287" 

ED5B 6816 

LDED 

CURCY 

028B -' 

CD 0000s19 

CALL 

SETCY 



? AND FALL INTO „ . 

5 MAKE NEW STRING THE OF 

028E •" 


OFFICIALS 

5 SHITCAN THE 

OLD STUFF 

028E -' 

2A 681A 

L.HL.D 

EDSTR 

0291"' 

CD 0000s17 

CALL 

SDEL 



5 SET LENGTH 


0294 -' 

2A 6802 

LHLD 

NSADDR 

0297-' 

E5 

PUSH 

H 

0298"’ 

11 0006 

LX I 

D,$SLEN 

029B -' 

19 

DAD 

D 

029C -' 

ED5B 6800 

LDED 

STRSIZ 

02A0 •" 

73 

MOV 

Mi E 

02 A1 "' 

23 

I NX 

H 

02A2-' 

72 

MOV 

M»D 

02A3-' 

D1 

POP 

D 



? UNCHA1NIT 


02A4 -' 

CD OOOOs10 

CALL 

INCUSE 



? MAKE NAME POINT AT IT 

02A7-' 

2A 64A1 

LHLD 

EDNAME 

02AA "' 

01 0005 

LX I 

B,$NVALL 

Q2AD-' 

09 

DAD 

B 

02AE 

ED53 681A 

SDED 

EDSTR 

02B2 "' 

73 

MOV 

MrE 

02B3 

23 . 

I NX 

H 

02B4"‘ 

72 

MOV 

M» D 

02B5 "' 

C9 

RET 




5 NEW SCREEN 1 

RETYPER 



? THIS ROUTINE UPDATES 1 



" TO SHOW THE 

LAST CHANC 

02B6'" 

CD 0391"' 

RETYPES CALL 

GNCX'Y 

02B9 -' 

2A 6806 

LHLD 

EDPN 


SCREEN TO REFLECT AFFECTED CHANG 


OFFICIAL STRING 


TEXT DISPLAYED ON THE SCREEN 
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02BC •" 

7E 


. RT1 s MOV A,M 




02BD" 

A7 


ANA A 




02BE •' 

2021 


JRNZ ..MNUL 






ts 

WE HIT A NULL - RESET BOTTOM 




.0200 ^ 

2A 6810 


LHLD IMEWBOT 




0203 

22 64 A V 


SHLD BOTTOM 




02C6 

3A 6812 


LDA EDLONG 




0209 

47 


MOV B,A 




02CA 

3E0A 

It 

» TNLs MVI AiNL 




02CC 

CD 05A8 *** 


CALL F'RETYF' 




02CF" 

DDCB0266 


BIT SCNEEDvC.ST(X) 




02D3*’ 

2029 


JRNZ ..FILB 5 YEP - 

GO 

DO 

FILLING 

02D5-' 

CD 0391 


CALL GWCXY 




02D8 •" 

CD 05CC *“ 


CALL POSTY1 




02DB 

CD 036F -' 


CALL PNCXY 




02DE •" 

10EA 


DJNZ ..TNL 




02E0-" 

C9 


RET 






tt 

•i 

NEW NOT NULL - TRY IT 




02E1 

CD 05A8 •" 

u 

. NNUL s CALL PRETY'P 




02E4 

£0 


I NX H 




02E5 

200B 


JRNZ ..YESNL 




02E7 

CD 0391-' 


CALL GNCXY 




02EA 

CD 05CC -' 


CALL POSTY1 




02ED •" 

CD 036F •" 


CALL PNCXY 




02FO"' 

18C A 


JMPR ..RT1 






n 

7 

WE GOT A NEW LINE - ARE WE DONE? 




02F2-' 

DDCB0266 

It 

■ YESNs BIT SCNEEDj C.ST C X) 




02F6-" 

2814 


JRZ .. NOSC 






* 

* 

YES WE DID! 




02 F8 ■" 

2A 6810 


LHLD NEWBOT 




02FB-' 

22 64A9 


SHLD BOTTOM 






7 

FILL REST OF LIME FULL OF BLANKS 




02FE 

CD 0391 -' 

It 

.FILES CALL GNCXY 




0301 -' 

3E20 

It 

.FI LS s MVI A,-' •" 




0303-' 

CD 05A8 -' 


CALL F'RETYP 




0306 

CO 


RNZ 




0307-' 

CD 05C9-' 


CALL POSTYP 




030A •" 

1-8F5 


JMPR ..FILS 






n 

7 

NEWLINE BUT NO SCROLLING - TYPE THE NEWL 

INE 

FOR REAL 

030C - 

CD 0391 •" 

ti 

.NOSC: CALL GNCXY 




030F -' 

CD 05CC"' 


CALL POSTYl 




0312-' 

22 6806 


SHLD EDPN 




0315-' 

2B 


DCX H 




0316 -' 

CD 03A2-" 


CALL NBUPD 




0319-' 

CD 036F-' 


CALL PNCXY 






» 

7 

NOW PRETYPE THE OLD STRING UNTIL NULL 

OR 

NEWLINE 

031C " 

CD 0380"' 


CALL GOCXY 




03 IF-' 

2A 6804 


LHLD EDF‘0 




0322'" 

7E 

it 

. QLDL s MOV AiM 




0323 •" 

A7 


ANA A 




0324 -' 

2806 


JRZ . . DONG! 




0326-' 

CD 05A8"' 


CALL F'RETYP 




0329 •" 

23 


I NX H 




032A -' 

28F6 


JRZ „.OLDL 




0320 •" 

22 6804 


.DON©: SHLD EDPO 
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032F •" 

CD 035E-" 

CALL 

? ARE POSITIONS 

POCXY 

THE SAME? 

0332 •" 

2A 680C 

LI-1LD 

EDNGX 

A O O*- -•* 

ED5B 6808 

LDED 

EDOCX 

0339" 

CD 0000s08 

CALL 

CPHLDE 

033C 

C2 02B6 *" 

•JNZ 

RETYPE 

033F *" 

2A 680E 

LHLD 

EDNCY 

0342-' 

ED5B 680A 

LDED 

EDOCY 

0346" 

CD 0000s 08 

CALL 

CPHLDE 

0349" 

C2 02B6" 

JNZ 

? NOW THE FINAL 
ON OUT? 

RETYPE 

CHECK - DO STRINGS EQUAL 

034C " 

2A 6806 

LHLD 

EDPN 

034F *" 

ED5B 6804 

LDED 

EDPO 

0353 •" 

1A 

. . FCHKs L.DAX 

D 

0354 *" 

BE 

CMP 

M 

0355" 

C2 02B6 *" 

JNZ 

RETYPE 

0358-' 

13 

INX 

D 

0359-' 

23 

INX 

H 

035A*" 

A7 

ANA 

A 

035B-" 

2 OF 6 

JRNZ 

„.FCHK 

035D •" 

C9 

RET 

5 PUT OCXY 


035E •- 

D5 

POCXYs PUSH 

D 

035F-" 

CD 0000SOE 

CALL 

GETCX 

0362-' 

ED53 6808 

SDED 

EDOCX 

0366 •" 

CD 0000 s OF 

L* ALL 

GETCY 

0369-' 

ED53 680A 

SDED 

EDOCY 

036D -' 

D1 

POP 

D 

036E -' 

C9 

RET 

5 PUT NCXY 


036F-" 

D5 

PNCXYs PUSH 

D 

0370 " 

CD 0000sOE 

CALL 

GETCX 

0373"' 

ED53 680C 

SDED 

EDNCX 

0377 '' 

CD 0000sOF 

CALL 

GETCY 

037A' 

ED53 680E 

SDED 

EDNCY 

03'7E-‘ 

D1 

POP 

D 

037F •" 

C9 

RET 

■: GET OCXY 


0380 •" 

D5 

GOCXYs PUSH 

D 

0381"' 

ED5B 6808 

LDED 

EDOCX 

0385"' 

CD 0000s18 

CALL 

SETCX 

0388 " 

ED5B 680A 

LDED 

EDOCY 

038C •" 

CD 0000s19 

CALL 

SETCY 

038F 

D1 

POP 

D 

0390"' 

C9 

RET 

S GET NCXY 


0391" 

D5 

GNCXYs PUSH 

D 

0392"' 

ED5B 680C 

LDED 

EDNCX 

0396 •" 

CD 0000s18 

CALL 

SETCX 

0399 -' 

ED5B 680E 

LDED 

EDNCY 

039D •" 

CD 0000s19 

CALL 

SETCY 

OSAO -' 

D1 

POP 

D 

03 A1 " 

C9 

RET . 

S SUBROUTINE TO 

UPDATE BOTTOM CANDIDATE 


■tf* 


EACH OTHER HERE 


S PER CHAR TYPE 







1 
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D 


03 A2 -■ 

7E 

NBUPDs MOV 


A, M 


03A3 •' 

FEOA 

CPI 


NL 


03A5" 

2001 

■JRNZ 


. . NONL 


03A7 " 


I NX 


H 


03 AS' 

22 6810 

. . IMONL s SHLD 


NEWBOT 


03AB 

C9 

RET 






5 SUBROUTINE 

TO 

RETYPE ' 

THE ENTIRE SCREEN 



? START WITH 

TOP AND TYPE AWAY UNTIL NULL HIT OR 



? WE GO OFF THE 

BOTTOM. 

REMEMBER THE NEWLINE PLACE 



? .JUST BEFORE A: 

3 BOTTOM 


03 AC"' 


REPAINTS 




03AC ■" 

CD 0000s14 

CALL. 


RE SCX Y- 


03AF*** 

2A 6818 

LHLD 


TOP 


03B2 

3E0C 

MV I 


A,CNTRL 

5 CLEAR AWAY THE SCREEN 

03B4 

ijD 05UL*‘* 

CALL 


POST Y .1. 


03B7 

44 

MOV 

r*.» 


B» H 

; INIT NL POINT MEMORIZO 

03B8" 

4D 

r, 

MOV 


C* L 


03B9"' 

7E 

..LOOPS MOV 


A,M 

5 A NULL? 

03BA *“ 

A7 

ANA 


A 


03BB"' 

2810 

■JRZ 


..NULL 

? YEP ~ KICKOUT 

03BD" 

CD 0000 s OF 

lall 


GETCY 


03C0 •“ 

D5 

PUSH 


D 


03C1"' 

CD 05AS’"' 

CALL 


F'RETYP 

? PRETEND TO TYPE 

03 C 4 

2813 

JRZ 


. „ NONL 

5 JUMP IF NOT NEWLINE 

03C6"' 

DDGB0266 

BIT 


SCNEED, 

C.ST(X) ? DID WE SCROLL TOO? 

03CA"' 

2806 

JRZ 


« .I NL 

5 NO 

03CC •" 

D1 

POP 


D 


03CD"' 

ED43 64A9 

w u NULL « 


BOTTOM 

? YES ~ WE IS DONE 

03D1"' 

C9 

RET 



5 BYE BYE 

03D2 

44 

..NLs MOV 


Bt H 

? REMEMBERIZE NEW NL POI 



NT 




03D3 

4D 

MOV 


CrL 


03D4"' 

FEOA 

CPI 


NL 

? WAS THAT A NEW LINE? 

03D6 

2001 

JRNZ 


.„NONL 

; no 

03D8-- 

03 

I NX 


B 

? YES ~ FUZZ TO AFTER 

03D9 

CD 0000s18 

. . NuNL s t-ALL 


SETCX 


03DC "' 

D1 

POP 


D - . 


03DD"' 

CD 0000 s 19 

CALL 


SETCY 


03E0 

CD 05CC"' 

CALL 


P0STY1 


03E3 


INX 


H 


03E4"' 

18D3 

■JMPR 


..LOOP 




5 SUBROUTINE 

TO 

ADVANCE 

THE CURSOR FORWARD A CHARACTER 

03E6 

2A 64A7 

FORWCs LHLD 


POINTER 


03E9 

7E 

MOV 


ArM 


03EA" 

A7 

ANA 


A 


03EB *’ 

C8 

RZ 




03EC-* 

CD 0000 s OF 

CALL 


GETCY 

? SAVE CY 

03EF *•’ 

D5 

PUSH 


D 


03F0" 

CD 05A8 "' 

CALL 


F’RETYP 


03F3 •” 

D1 

POP 


D 


03F4 

CD 0000s19 

CALL 


SETCY 

; AND REST 

03F7 *** 

2005 

■JRNZ 


FORWL 

? IF FUNNY STUFF ADVANCE 
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03F9 ‘ 

• **“»0 

INK 

H 


03F A“ 

22 64A7 

SHLD 

POINTER 


03FD- 

C 9 

RET 





? ELSE FALL INTO... 

u 




? SUBROUTINE TO 

MOVE FORWARD A 

LINE 

03FE- 


FORWL » 



03FE- 

2A 64A7 

Li-ILD 

| 

POINTER 

5 IF ON NULL -- FORGET IT 

0401' 

7E 

MOV 

A/M 


0402- 

A7 

ANA 

A 


0403- 

C 8 

RZ 



0404- 

CD 0000SOE 

CALL 

GETCX 


0407- 

D5 

PUSH 

D 


0408- 

2A 64A5 

LHLD 

CURRENT 


040B - 

E5 

PUSH 

H 


040C- 

CD 0000 s OF 

CALL 

GETCY 


040F- 

D5 

PUSH 

D 


0410- 

CD 0567 x 

CALL 

FFNLP 

; FIND FOLLOWING NL 

0413- 

D 1 

POP 

D 

5 DE=CY 

0414- 

E3 

XTHL 


; HL-OLD CURRENT 

0415- 

CD 0000s19 

CALL.. 

SETCY 


04.1 ' 

D5 

PUSH 

D 


0419" 

ED5B 64A9 

LDED 

BOTTOM 

5 ARE WE AT THE BOTTOM 0 



F THE FILE 



0410" 

CD 0000 s 08 

CALL 

CPHLDE 


0420- 

280F 

•JRZ 

..ATBO 




5 WE ARE NOT YET 

’ AT THE BOTTOM 




? WE THINK!! 



0422" 

3E0A 

MV I 

A, ML 

5 MOVE CY DOWN 1 LINE 

0424- 

CD 05AS 

CALL 

PRETYP 


0427/" 

DDCB0266 

BIT 

SCNEED 7 C.ST(X) 


042B- 

2004 

JRNZ 

..ATBO 


042D- 

D 1 

POP 

D 


042E- 

El 

POP 

H 


042F •" 

1833 

JMF'R 

..JOIN 




5 WE ARE AT THE 

BOTTOM 


0431" 

D 1 

..ATBOs POP 

D 


0432- 

CD 0000s19 

CALL 

SETCY 


0435" 

El 

POP 

H 


0436 -' 

7E 

MOV 

A,M 

; NULL CHECK 

0437- 

A7 

ANA 

A 


0438" 

200C 

JRNZ 

. . OK 


043A- 

2B 

DC X 

H 

? CHECK FOR NEW LINE 

043B"' 

7E 

MOV 

A 7 M 


043C- 

2! 3 

I NX 

H 


043D •" 

FEOA 

CPI 

NL 


U43F *' 

2805 

JRZ 

„ „ OK 


0441 •" 

D 1 

..NOGOs POP 

D 

S THERE AINT NOWHERE 

0442" 

CD 0000s18 

CALL 

SETCX 


0445" 

C9 

RET 


5 TO GO 



? THANGS ARE OK 



0446" 

3E0A 

..OKs MVI 

A 7 NL 

§ TYPE A REAL LIVE MEWLI 



NE 



0448- 

CD 05CC 

CALL 

P0STY1 





PAGE 13 


TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
EDITOR - 


044B"' 

E5 


PUSH 

H 



044C’" 

CD 0000 s OF 


CALL 

GETCY 



044F 

D5 


PUSH 

D 



0450" 

CD 0578" 

LINE 

CALL 

THLUNL 

u 

7 

THEM TYPE OUT THE NEXT 

0453" 

2A 6818 


LHLD 

TOP 

« 

7 

RESET TOP POINTER 

0456" 

CD 0567" 


CALL 

FFNLP 



0459"' 

22 6818 


SHLD 

TOP 



045C" 

D1 

».NOSHs 

POP 

D 



045D" 

CD 0000s19 


CALL 

SETCY 



0460" 

El 


POP 

H 



0461" 

22 64A9 

TER TOO 

SHLD 

BOTTOM 

7 

CHAIMGO THE BOTTOM POIN 

0464 " 

22 64A5 

» . .JOINS 

SHLD 

CURRENT 

« 

7 

RESET THE CURRENT LINE 

04.67' 

44 


MOV 

B» H 

H 

7 

BC=NEW CURRENT LINE 

0468 

4D 


MOV 

CYL 



0469' 

El 


POP 

H 

« 

7 

HL.=TARGET CX 

046* A ’* 

CD 0000sOF 


CALL 

GETCY 



046D" 

D5 


PUSH 

D 



046E-" 

CD 0585"' 


CALL 

HORICX 



0471"' 

ED43 64A7 


SBCD 

POINTER 



0475’" 

D1 


POP 

D 



0476" 

CD 0000319 


CALL 

SETCY 



0479' 

C9 


RET 






? BACKUP A CHARACTER 



047A " 

2A 64A7 

BACKC3 

LHLD 

POINTER- 



047D " 

ED5B 64A3 


LDED 

FIRST 



0481 ■" 

CD OOOOsOS 


CALL 

CPHLDE 



0484"' 

C8 

FILE 

RZ 


« 

7 

KICKOUT IF AT BEGIN OF 

0485•" 

2B 


DCX 

H 



0486 

22 64A7 


SHLD 

POINTER 



0489"' 

CD 0000 s OF 


CALL. 

GETCY 



048C" 

D5 


PUSH 

D 



048D" 

3E7F 

UT 

MV I 

A, RUBOUT 


PRETEND TO TYPE A RUBO 

048F"' 

CD 05AS¬ 


CALL 

PF5ETYP 



0492"' 

CI 


POP 

D 



0493" 

CD 0000s19 


CALL 

SETCY 



0496" 

DDCB026E 


BIT 

RUBACKr c. 

ST (X) 


049A" 

C8 v 

NY 

RZ 


it 

7 

KICKOUT IF NOTH!NG FUN 



” ELSE FALL INTO* « * 





? BACKUP 

A LIME 




049B" 

049B"' 

2A 64A5 

BACKLs 

LHLD 

CURRENT 

* 

7 

IF ALREADY AT TOP 

049E " 

ED5B 64A3 


LDED 

FIRST 

3 IGNORE 

04 A2 "' 

CD 0000308 


CALL 

CPHLDE 



04A5 "' 

C8 


RZ 

- Yj f ■: ■ . 



04A6"' 

CD 0000 s OE 


CALL 

GETCX 



04A9 •" 

D5 


PUSH 

D 



04AA " 

CD 0000 s OF 


CALL 

GETCY 



04AD 

D5 


PUSH 

D 



04 AE 

E5 


PUSH 

H 

V T' w 

■ 

SAVE CURRENT 
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04 A F "' 

CD 0526 *' 

CALL 

FPNLP 5 SET BC 

AT PREV NL 



5 DID WE BACK 

UP PAST FIRST LINE ON SCREEN? 

0.4B2 

El 

POP 

H ; HL—OLD 

CURRENT LINE 

04B3" 

ED5B 6818 

LDED 

TOP 


04B7" 

CD 0000*08 

CALL 

CPHLDE 


04BA-" 

202D 

•JRNZ 

. . IMOSC ? NO 




5 WE DID IT!? 

SCROLL DOWN A LINE 


04BC "' 

C5 

PUSH 

B 


04BD •" 

FDE5 

PUSH 

Y 


04BF" 

FD21 67AD 

LX I 

Y,TMPARG 


04C3 

DD7E10 

MOV 

A,C.YF(X) 


04 C 6 "' 

2F 

CMA 



04C7 •*’ 

3C 

I NR 

A 


04C8" 

CD 0000*06 

CALL 

BLDBOX 


04CB" 

CD 0000*16 

CALL 

SC ROLE 


04CE 

CD OOOOs14 

CALL 

RESCXY 


04D1 

FDE1 

POP 

Y 


04D3"' 

El 

POP 

H 5 HL=F‘REV 

NL. POINT 

04D4"' 

E5 

PUSH 

H 


04D5'' 

CD 0578" 

CALL 

THLUNL ? TYPE FROM THEIR ON 



5 RESET CURRENT AND TOP POINTERS 


04D8-" 

El 

POP 

H 


04D9" 

22 6818 

SHLD 

TOP 


04D.C •' 

22 64A5 

SHL..D 

CURRENT 


04DF ■' 

CD .0507' 

CALL 

RESBOT 


04E2-" 

ED43 64A9 

SBCD 

BOTTOM 


04E6 1 *' 

D1 

POP 

D ? DE=CY 


04E7 

180C 

JMPR 

..SPOT 




5 WE DID NOT 

BACKUP BEFORE FILE START 


04E9" 

ED43 64A5 

..NOSC5 SBCD 

CURRENT ? CHANGE 

CURRENT 

04ED ‘ 

El 

POP 

H ” HL=NEW 

CY 

04EE-" 

DD5E10 

MOV 

EiC.YF < X) 


04F1 "' 

1600 

MVI 

D f U 


04F3-' 

19 

DAD 

D 


04F4-' 

EB 

XCHG 





? COMPUTE NEW 

CURSOR POSITION AND RESET 


04F5-- 

El 

..SPOT* POP 

H 5 HL=TARGET CX 

04F6"' 

D5 

PUSH 

D 


04F7 " 

ED4B 64A5 

LBCD 

CURRENT 


04FB "' 

CD 0585"' 

CALL 

HORICX 


04FE-" 

ED43 64A7 

SBCD 

POINTER 


0502"' 

D1 

POP 

D 


0503"' 

CD 0000519 

CALL 

SETCY 


0506"' 

C9 

RET 





? IN HL=TOP 





S OUT BC=BOTTOM 


0507 •" 

CD OOOOs14 

RESBOTs CALL 

RESCXY 


050A"' 

44 

..PIJZ15 MOV 

B,H 


050B"' 

4D 

MOV 

Ci L 


050C"' 

7E 

. PUZ2s MOV 

A,M 


050D" 

A7 

ANA 

A 


050E"' 

C8 

RZ 



050F"' 

CD 05A7"' 

CALL 

PRETHL 


0512"' 

280F 

■JRZ, 

..PUZ3 


0514"' 

DDCB0266 

BIT 

SCNEED,C.ST(X) 






PAGE 15 


TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
EDITOR - 


0518“* 

CO 


RNZ 


0519*’* 

44 


MOV 

BvH 

051 A-' 

4D 


MOV 

L* * L 

05 IB-' 

7E 


MOV 

A,M 

051C” 

23 


I NX 

H 

05 ID-' 

FEOA 


CPI 

NL 

05 IF" 

. 28E9 


•JRZ 

..PUZ1 

0521 - 

18E9 


•JMF’R 

..PUZ2 

0523*** 

23 

..PUZ3S 

I NX 

H 

0524 - 

18E6 


JMPR 

..PUZ2 



; SUBROUTINE 

TO FIND PREVIOUS NEWLINE POINT 



? INS HL=CURRENT LINE POINTER 



? OUT s 

BC=F'REVIOUS NEWLINE POINTER 



5 EVERYTHING 

ELSE IS FUBAR 

0526 *” 

ED5B 64A3 

FPNLPs 

n 

LDED 

FIRST 3 DE=FIRST CHAR IN STRIN 

052A’* 

2B 


OCX 

H 

052B **’ 

Zj.Z). 


MOV 

B,H 

052C ■" 

4D 


MOV 

C,L 

052D •" 

7E 


MOV 

A, M 

052E *” 

FEOA 


CPI 

NL 

0530*” 

2008 


.JRNZ 

..FNLO 

0532” 

CD 0000 s 08 


CALL 

CPHLDE 

0535-' 

2004 


.JRNZ 

..FNL1 

0537-' 

D5 


PUSH 

D 

0538*” 

1812 


■JMPR 

..BONG 

053A *”. 

23 

..FNL O s 

INX 

H 

053B -' 

E5 

..FNL1s 
T 

..FNL s 

PUSH 

H , 5 SAVE FORWARD SCAN LIMI 

053C" 

2B 

DCX 

H ? LOOK BACKWARDS FOR A N 

EWLINE 

053D " 

CD 0000s08 


CALL 

CPHLDE 

0540-' 

7E 


MOV 

A,M 

0.541- 

2004 


JRNZ 

..BUFO 

0543"' 

FEOA 


CPI 

NL 

0545- 

2005 


JRNZ 

..BONG 

0547" 

FEOA 

. . BUFCts 

CPI 

NL 

0549 •" 

20F1 


JRNZ 

. . FNL 

054B "' 


..BANGS 

INX 

H 

,054'C" 

44 

».BONGs 

MOV 

B>H 3 REMEMBER WHERE NL IS 

054D- 

4D 


MOV 

C i L 

054E- 

CD 0000s13 


CALL 

RESCX 



5 PRETEND TYPE FROM START OR PREV NEWLINE 

■': ■ 


3 UP UNTIL WE 

: HIT THE SCANNING LIMIT WHERE WE CAME 



5 FROM 

T 

5 IS IT 

~ THE 

PLACE WE WRAPPED AROUND OR STARTED FROM LAS 

0551 *” 

7E 

..BON1s 

MOV 

A,M 

0552*” 

A7 


ANA 

A 3 NULL CHECK 

0553*” 

2002 


JRNZ 

„.BON2 

0555*” 

El 


POP 

H 

0556 *” 

C9 


RET 


0557*” 

CD 05A7- 

..B0N2s 

CALL 

PRETHL 

055A *” 

2808 


JRZ 

.-B0N3 3 JUMP IF NOTHIN FUNNY 

055C *” 

D1 


POP 

D 3 DE=L. IMIT 
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055D 

CD 0000 5 08 

CALL 


CPHLDE 

It 

IS WE AT IT? 

0560 x 

C8 

RZ 



V 

WE GOT IT 

0561- 

D5 

RUSH 


D 

') 

ELSE 

0562- 

44 

MOV 


B ; H 


REMEMBER THIS WRAPAROU 



IMD 





0563"* 

4D 

MOV 


C, L 



0564- 

23 

« »B0N3s INX 


H 



0565"* 

18E A 

■JMPR 


..BON1 





? SUBROUTINE 

TO 

FIND FOLLOWING 

NEWLINE POINT 



? IN HL=CURRENT 






? OUT HL=FOLLOWING 



0567- 

CD 0000s13 

FFNLPs CALL 


RE SCX 



056A •- 

7E 

..NCHKs MOV 


A,M 



056B" 

A7 

ANA 


A 



056G "* 

C8 

RZ 



tl 

KICKOUT ON NULL 

056D "* 

23 

I NX 


H 



056E "* 

FEOA 

CPI 


NL 

It 

7 

OR NL 

0570"* 

C8 

RZ 





0571"* 

CD 05A8-- 

CALL 


F'RETYP 



0574 "* 

28F4 

•JR Z 


„.NCHK 



0576"* 

2B 

DCX 


H 

7 

CHAR WRAP AROUND - SO 



FIX 





0577"* 

C9 

RET 







; TYPEOUT STUFF 

UNTIL A NEWLINE 

WOULD BE TYPED 



? HL=ADDRESS 

TO 

TYPE FROM 



0578"* 

7E 

THLUNL s MOV 


A.M 



0579"‘ 

A7 

ANA 


A 



057A"* 

C8 

RZ 





057B 

CD 05A8- 

CALL 


PRETYP 

It 

PRE-TYPE IT 

057E"* 

CO 

RNZ 



tl 

QUIT IF WOULD BE ML 

057F "* 

CD 05C9;- 

CALL 


POSTYP 

5 

ELSE REALLY DO IT 

0582"* 

L'3 

I NX 


H 



0583"* 

18F3 

JMPR 


THLUNL 




? HORIZONTAL INDEX CX FROM THE CURRENT LINE POINTER 


? WE PRETEND TO TYPE FROM THE LEFT HAND SIDE UNTIL WE 
? EITHER GET A CX > TARGET CX OR WE FORCE A NEWLINE 
5 THE PREVIOUS CHARACTER BECOMES.'IT' 


0585"* 

CD 0000s13 

HORICXs 

CALL 

RE SCX 



0588"* 

OA 

„« HORL s 

LDAX 

B 

M 

7 

GOOD OLD NULL CHECK 

0589"’ 

A7 


ANA 

A 



058A"* 

p»~* 


RZ 




-058B"’ 

E5 


PUSH 

H 



058C" 

CD 05A8-' 


CALL 

PRETYP 



058F"‘ 

DD6E0B 


MOV 

L,C.CX(X) 

u 

7 

TOP=T ARGET 

0592"* 

DD660C 


MOV 

HvC.CX+KX.) 

a 

? 

HL=NOW 

0595" 

200B 


JRNZ 

,„ HOR1 



0597"* 

EB 


XCHG 




0598 "* 

E3 

HEN 

XTHL 


? 

DE=NOW i HL=TARGET,TOP=T 

0599 

CD 0000s08 


CALI- 

CPHLDE 

M 

IS NOW > TARGET? 

059C "* 

D1 


POP 

D 



059D "* 

3804 


JRC 

„. H0R2 



059F "* 

03 


I NX 

B 



05 AO"* 

18E6 


JMPR 

.„ HORL 
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05 A2 

El 

? DE=THEN 
..HOR1s POP 

05A3-" 

CD 0000." 18 

..H0R2s CALL 

05A6 •“ 

C9 

RET 

05 A 7 •" 

7E 

5 PRETEND TO 
PRETHL.5 MOV 

05AS"' 

CD OOOOsOE 

? PRETEND TO 
PRETYPs CALL 

05AB 

D5 

PUSH 

05AC 

DD5E0D 

MOV 

05AF - 

DDCB02A6 

RES 

05B3" 

DDCB02AE 

RES 

05B7-’ 

A7 

ANA 

05B8 •** 

CD OOOOs 09 

CALL 

05BB 

DDCB0266 

BIT 

05BF *** 

2006 

JRNZ 

05C1 *** 

57 

MOV 

05C2 *“ 

DD7E0D 

MOV 

05C5 

BB 

CMP 

05C6 

7A 

MOV 

05C7 *’* 

Dl 

..PREIS POP 

05C.8 **' 

C9 

RET 

05C9 

CD OOOOs18 

. type PREVIf 
P0STYP5 CALL 

05CC *** 

37 

POSTYls STC 

05CD ** 

C3 OOOOs09 

JMP 



.END 


H 

SETCX 

TYPE THE CHARACTER POINTED AT BY HL 
A,M 

TYPE A CHARACTER IN A 
GETCX 
D 

E 5 C. C Y ( X ) 

SCNEED 7 C.ST(X) 

RUBACKiC.ST(X) 

A 

DCHAR 

SCNEED ■> C „ ST C X ) 

„»PRE1 

Dt a 

A 7 C. C Y < X ) 

E 

A,D 
D 

>LY TYPED CHARACTER AT SAME PLACE 
SETCX 

DCHAR 



PAGE 18 


TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
EDITOR ~ 
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AASN 

005F 


ALSTS 

OOOOs04 

X 

ARG 

0000 5 05 

X 

ARGSTK 

60 CC 

BACDEL 

0129-' 


BACKC 

047A" 


BACKGR 

65CC 


BACKL 

049B 

BLANK 

0020 


BLDBOX 

0000 s 06 

X 

BOTRAM 

6000 


BOTTOM 

/-,4 ft 9 

CHARSL 

65DD 


CLEARS 

60CA 


CNTCK 

OOOOs07 

X 

CNTRL 

00.0 c 

CNTRLC 

65CD 


CNTRLO 

65D9 


CNTRLU 

0015 


CNTRLZ 

65E4 

COPON 

0261 "' 


CPHLDE 

0000 5 08 

X 

CPLARE 

611C 


CPLSIZ 

0140 

OR 

GOOD 


CSBLOK 

668 D 


CSFLAG 

6260 


CURBAC 

0101 

CURCX 

6814 


CURCY 

6816 


CURDW1 

011 C' 


CURDWN 

0119 

CURF01 

010C" 


CURFOR 

0109" 


CURREN 

64A5 


CURUP 

0111 

c. CO 

0011 


c. ci 

0012 


c. cx 

OOOB 


C.CY 

GOOD 

C.DP 

0013 


C.ST 

0002 


C. X 

0003 


C. XF 

OOOF 

C.XS 

0007 


C. Y 

0005 


C. YF 

0010 


C. YS 

0009 

DCHAR 

0000s 09 

X 

DDTON 

65CE 


DELCHR 

012E-" 


DELLIN 

018F 

DEVBL 

6589 


DEVCLO 

6579 


DEVCL1 

657B 


DEVCL2 

657D 

DEVCL3 

AFT/F 


DEVCL4 

6581 


DEVCL5 

6583 


DEVCL 6 

6585 

DEVCL7 

6587 


DEVFB 

65CB 


DEVHCB 

658F 


DEVMO 

658B 

DEVNM 

65B7 


DEVNT 

658D 


DEVTNA 

65BB 


DEVTNB 

65BF 

DEVTNC 

65C3 


DEWA 

65BD 


DEWAR 

6579 


DEWB 

65 Cl 

DEVVBL 

6591 


DEWG 

65C5 


DEWD 

65 C 9 


DEVON 

65B9 

DEWS 

65C7 


DEVXCD 

65B3 


DEVYCD 

65B5 


DIV16 

0000 

DOLPLH 

62E8 


DOLPF'T 

62EA 


DUMBST 

6577 


EDBCNT 

64AD 

EDCCNT 

64A7 


EDCLIT 

00C7 -' 


EDCUNT 

00E3 •" 


EDDISP 

008D 

EDIT 

0000 •- 

I 

EDLONG 

6812 


EDMODE 

681C 


EDNAME 

64 A1 

EDNCX 

680C 


EDNCY 

680E 


EDNEWS 

64 A 5 


EDOCX 

6808 

EDOCY 

680A 


EDPN 

6806 


EDPO 

6804 


EDPTRC 

64 A B 

EDPTRL 

64 A V 


EDSTR 

681A 


ENDINS 

0128"' 


ERABIT 

0002 

ERRF'GM 

0000 s OB 

X 

ER.ARA 

002F 


ER.ARG 

0034 


ER.ASN 

0015 

ER.BOX 

001 A 


ER.'CHN 

0002 


ER.CMD 

00 IF 


ER.CNV 

0016 

ER»COR 

00 IB 


ER.CTL 

0036 


ER.DEL 

0026 


ER.DIM 

0030 

ER.DIV 

0018 


ER „ DP 

0037 


ER.DSK 

0019 


ER.EDT 

0035 

ER.FMT 

0038 


ER.FNF 

001C 


ER.FOR 

0028 


ER.IMP 

0003 

ER.LAB 

0025 


ER.MAC 

0022 


ER.MAE 

002D 


ER.NAM 

0029 

ER.MEG 

003A 


ER.NOT 

0023 


ER.NUL 

0039 


ER.NUM 

002B 

ER.NXT 

00 ID 


ER.OFL 

0017 


ER.OPN 

0014 


ER.OVE 

00 IE 

ER.PAR 

002A 


ER.REN 

0Q2C 


}"T C* fZ* T 

L-n. u 1 

0024 


ER.SEP 

0021 

ER.SNP 

0031 


ER.SPC 

002E 


ER.STK 

0004 


ER.SW 

0032 

ER„TER 

0020 


ER.UFL 

0033 


ER.UNF 

0027 


ESCAPE 

00 IB 

EXP 

OOOOs oc 

X 

EXTDEL 

002E 


E.HVAL 

0002 


E.LVAL 

0001 

E.SIZ 

0005 


E.TYP 

0000 


E. VAL 

0001 


FCNTH 

65D2 

FONT I 

65D3 


FCNTJ 

65D4 


FCNTK 

65D5 


FCNTL 

65D6 

FCNTV 

65E0 


FCNTY 

65E3 


FFNLP 

0567"' 


FIRST 

64 A 3 

FLAGS 

65CB 


FOREGR 

65D0 


FORWC 

03E6 "' 


FORWL 

03FE 

FPNLP 

0526"' 


FRAGSI 

0400 


FREELS 

65E5 


FSTDOL 

6480 

FSTTNT 

6 E L- 


FWDPTR 

65E7 


GETCH 

OOOOsOD 

X 

GETCX 

0000 

GETCY 

0000 5 OF 

X 

GNCXY 

0391" 


GNS.TR 

01 E 8 "' 


GOCXY 

0380 

HCAREA 

6593 


HORICX 

0585“- 


INCRO 

65E9 


INCUSE 

0000 

INSERT 

0123 "' 


INSLIN 

01CE "' 


INSREP 

014D "' 


■JUNK 

6542 

KBLOCK 

65F1 


KEYFL.G 

67FF 


kEyptk 

6533 


KEYTRK 

67F7 

LF 

OOOA 


LISTON 

65E2 


MACSTU 

6536 


MACTOP 

625E 

MAXFRG 

0040 


MNMX 

65EB 


NBLKB 

0000 


NBLKM 

0001 

NBUPD 

03A2 •" 


NEGBC 

01 C 6 - 


NEWBOT 

6810 


NL 

OOOA 

NSADDR 

6802 


NUMBUF 

64A3 


NXTVAL 

OOOOs11 

X 

OFFICI 

028E 

OLDCHR 

64A0 


OLDCUR 

649F 


OLDKEY 

649D 


OLDXY 

65EF 

ONEBUF 

6729 


OPRL 

0014 


OPRSP 

655B 


OPRSTK 

6547 

OPRSZ 

655D 


OUTOFF 

62E7 


PCNT 

655E 


PCRET 

01 IF 


OA X 


OE X 
10 X 
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F'lXVAL 

65ED 

PNCXY 

036F **’ 


POCXY 

035E"' 

POINTE 

64A7 

PONOFF 

65 DA 

P0STY1 

05CC"' 


P08TYP 

05C9"' 

PRETHL 

05 A7"' 

PRETYP 

05A8 *“ 

PRINTR. 

6540 


PUTCUR 

OOOOs12 X 

RAMEND 

7ppp 

RAMSTR 

6900 

RAMSHT 

655F 


REPAIN 

03 AC"' 

RESBOT 

0507“ 

RESCX 

0000s13 X 

RESCX Y 

0000 s 

14 X 

RESCY 

0000 “15 X 

RETYPE 

02B6"' 

RMDTMF* 

6538 

RUBACK 

0005 


RUBOIJT 

007F 

SAVESP 

6250 

SCNEED 

0004 

SCRGLE 

0000 s 

16 X 

SCRW.IN 

6 7 CD 

SDEL 

0000 s 

SETGX 

0000s18 X 

SETCY 

0000 s 

19- X 

SOPRSP 

653D 

SOPRSZ 

653F 

STACK 

60C8 

STAKTO 

6000 


STRSIZ 

6800 

SUBSTU 

6534 

SUPDAT 

0269“ 

TAB 

0009 


TAPBUF 

64B3 

TAPCOM 

64AF 

TAPPRO 

64B1 

TBFEND 



TEMPHD 

60CA 

TEMPS 

62E5 

THLUNL 

0578"' 

TMPARG 

67 AD 


TOP 

6818 

TTYBEG 

6261 

TTYEND 

62E1 

TTYINT 

62E3 


TTYPTR 

62E1 

TXTWIN 

67E2 

UARTFL 

6.49C 

USREND 

65F1 


V3PTR 

6573 

VDCHAR 

649E 

VDNLF 

65CF 

VIPLH 

6545 


VOICED 

6563 

WRMODE 

65EE 

ZGIM2 

0001 

ZGREND 

68 ID 


♦AADR 

0010 

♦ADDRF 

0007 

♦ADDRI 

0005 

♦ADDRS 

0009 


♦ANY 

001A 

♦ANYNA 

FFFC 

♦ANYVA 

FFFE 

♦ARGPT 

0011 


♦BGPTR 

OOOF 

♦BNDL 

0007 

♦CALLE 

OOOD 

♦CMDAD 

0018 


♦CPLBL 

002A 

♦CSBLG 

0028 

♦DATAP 

0007 

♦DQLDE 

0001 


♦DOLOO 

0002 

♦DVAL 

0000 

♦END 

001C 

♦FADR 

OOOE 


♦FLAGS 

0002 

♦FORBL 

0024 

♦FORPT 

OOOB 

♦FVAL 

0006 


♦GOSUB 

001A 

♦ I ADR 

OOOC 

♦INPBU 

0018 

♦INPPT 

0016 


♦ IVAL 

0004 

♦KEYBL 

0026 

♦LENGT 

0001 

♦LINPT 

0005 


♦LOCPT 

0009 

♦MIBBL 

0022 

$MIBEN 

00 IB 

$NAMAD 

OOOA 


♦NAME 

OOOA 

♦NASCI 

0009 

♦NDEL 

0080 

$NL.INK 

0003 


♦NULL 

0002 

♦NVALU 

0005 

♦REPEA 

00 IE 

$RVSTU 

0013 


♦SAME 

0020 

♦SASCI 

OOOA 

♦SLEN 

0006 

♦STRAD 

0008 


♦STRPT 

0003 

♦TAF 

0000 

♦TYPE 

0000 

♦USE 

0005 


.BLNK. 

0000 s 03 X 

.DATA. 

0000* 


.PROG. 05 DO"' 


X 
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oooo 

01 0414 

KEYPSNS 

LX I 

B» 0414H 

; BC=COL #/PORT # 

0003-' 

11 6533 


L.X I 

D/KEYPTK 


0006 " 

ED78 

.» SCN1s 

IMP 

A 

? GET A COL 

0008 *" 

E63F 


AN I 

3FH 

? ISOLATE RELEVANT 

000A 

2006 

E 

JRNZ 

. SCN2 

? JUMP IF SOMETHING THER 

OOOG *“ 

oc 


I NR 

c 

? BUMP PORT 

GOOD *** 

1 OF 7 


D.JNZ 

. SCN 1 


OOOF 

AF 


XRA 

A 


0010" 

12 


STAX 

D 

5 SAY NOTHIN FOUND 

0011" 

C9 

? GOT s 

RET 

OMETHANG 

- LOOK FOR THE 

HOT BIT 

0012" 

05 

..SCN2! 

DCR 

B 

5. FUDGE COL TO 0~3 

0013" 

OEOO 


MV I 

Ci 0 

5 OB IT COUNTER 

0015" 

OF 

..SCN4 s 
UP 

RRC 


5 COUNT UNTIL BIT SHOWS 

001 6 "' 

3803 


JRC 

. .SCN3 


0018"' 

OC 


I NR 

C 


0019 " 

1SFA 


JMPR 

..SCN4 


00 IB" 

79 

..SCN3S 

MOV 

A, C 

•5 COMBINE WITH COL # 

001C" 

07 


RLC 



00 ID" 

07 


RLC 



00 IE"' 

BO 


ORA 

B 


001F •" 

3C 


I NR 

A 

? GIVING KEYCODE 1-24 
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0020 

47 

MOV 

B,A 

0021 

1A 

LDAX 

D ; DIFERENT FROM LAST? 

0022 *" 

A 8 

XRA 

B 

0023 *" 

C8 

RZ ... 

5 NO 

0024 •“ 

78 

MOV 

A,B 

0025*" 

12 

STAX 

D 

0026 •- 

C9 

RET 




5 EQUATES! 


0080 


SLBITM=80H 

5 SHIFT LOCK BIT IN KEYFLG AND LEDS 

0040 


MDBITM=40H 

5 MODE BIT SAME STORY 

0003 


CK1RAM=3 

? LOCATION OF CONTROL KEYS 

0003 


CK1BIT=3 


0007 


CK2RAM=7 


0004 


CK2BIT=4 


0000 


SK1RAM=0 

? LOCATION OF SHIFT KEYS 

0000 


SK1BIT=0 


0007 


SK2RAM=7 


0002 


SK2BIT=2 


0000 


T0KRAM=0 

5 LOCATION OF TOKEN KEY 

0002 


T OKBIT=2 


0001 


SHYLOK=1 

5 KEYCODE NUMBER FOR SHIFT LOCK KEY 

0004 


ESCKEY=4 

; KEYCODE NUMBER OF ESCAPE KEY 



; KEYBOARD SCANNER ROUTINE 



? IF A KEY HAS 
IS RETURNED 
? IN A. 

BEEN PRESSED, CY IS SET AND THE CHARACTER 

0027-' 

01 FE2C 

KEYSCN! LX I 

Bt0FE2CH ? B=COL SEL BIT, 



C=PORT # 


002A v ’ 

11 0000 

LX I 

D, 0 5 DE=COLUMN # 

002D-" 

ED41 

..SCAN! OUTP 

B 

002F *" 

ED78 

I IMP 

A 5 GET ROW DATA 

0031 " 

2F 

CMA 

? MAKE RIGHT SIDE UP 

0032*'* 

21 67F7 

LX I 

1-1, KEYTRK 5 UPDATE TRACKING MEMORY 

0035 **' 

19 

DAD 

D 

0036" 

77 

MOV 

M, A 

0037- 

21 OOCC-' 

LX I 

H,KEYMES 5 DO WE HAVE A LIVE ONE? 

003A -‘ 

19 

DAD 

D 

003B -' 

A6 

ANA 

M 

003C *" 

200A 

JRNZ 

..LIVE 5 JUMP OUT IF SO 

003E-* 

1C 

I MR 

E ? NO - BUMP COL 

003F 

CBOO 

RLCR 

B 5 SHOVE OVER THE MASK 

0041 -' 

38EA 

JRC 

..SCAN 5 LOOP TILL FALLS OFF EN 



D 


0043 *" 

AF 

XRA 

M 

STA 

A ? FAILURE-NAIL OLDKEY ME 

0044 " 

32 649D 

OLDKEY 

0047 *" 

C9 

RET 

? HOME TO MAMMA 



? A KEY IS DOWN 

- CONVERT TO INTERMEDIATE KEYCODE 



5 FIRST CONVERT 

TO BIT NUMBER 

0048 *" 

OF 

..LIVE! RRC 


0049" 

3803 

JRC 

„ . B ITF 

004B" 

14 

I NR 

D 
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004C" 

18F A 

JMPR 

..LIVE 


004E •“ 

7B 

..BITFs MOV 

A,E ? COLUMN 

# 

004F •** 

A7 

ANA 

A 


0050'' 

07 

RLC 

? 

# 8 

0051 x 

07 

RLC 



0052" 

07 

RLG 



0033 f 

82 

ADD 

D ; 

+ BIT # 

0054-* 

4F 

MOV 

Ci A ; 

KEYCODE TO C 



5 IS THE KEYCODE THE SAME AS THAT 

FOUND ON PREVIOUS SCAN 

0055 •" 

21 649D 

LX I 

HiOLDKEY 


0058" 

BE 

CMP 

M 


0059 •" 

C8 

RZ 

u 

V* 

QUIT IF SO 

005ft-V 

77 

MOV 

Mi A ; 

ELSE UPDATE THANGS 

00533“ 

21 67FF 

LX I 

E FLAGS 

HiKEYFLG ? 

POINT AT SHIFTLOCK/MOD 



? CHECK FOR S 

RIFT LOCK KEYPRESS 


005E •“ 

FEOl 

CPI 

SHYLOK 




? .JMPR 

„.NOSL 


0060 

2005 

JRNZ 

..NOSL 


0062 “ 

7E 

MOV 

A,M ; 

YEP - TOGGLE SHIFT LOG 



K BIT 



0063'“ 

EE 80 

XRI 

SLBITM 


0065“ 

1816 

JMPR 

. . ULED ", 

JUMP TO UPDATE 



? CHECK FOR CONTROL KEY 


0067“ 

3A 67FA 

..NOSLs LDA 

KEYTRK+CK1RAM 


006A" 

CB5F 

BIT 

CKIBITiA 


006C •" 

2007 

JRNZ 

..CKDN 


006E ■" 

3A 67FE 

LDA 

KEYTRK+CK2RAM 


0071 "' 

CB67 

BIT 

CK2BIT,A 


0073" 

2819 

JRZ 

..NOCK 




5 WE GOT A CONTROL KEY - DO WE HAVE ESCAPE AS WELL? 

0075" 

79 

„.CKDN5 MOV 

A, C 


0076" 

FE04 

CPI 

ESCKEY 


0078" 

2 OOF 

JRNZ 

„.NOES 


007A-" 

7E 

MOV 

A i M S 

YEP - TOGGLE MODE BIT 

007B"' 

EE40 

XRI 

MDBITM 


007D"' 

77 

..ULEDs MOV 

Mi A i 

SHIFTLOCK JOINS HERE T 



00 



007E 

3A 6589 

LDA 

DEVBL 


0081 "' 

E63F 

AN I 

3FH 


0083"' 

B6 

ORA 

M 


0084 "' 

32 6589 

STA 

DEVBL 


0087" 

A7 

ft Nft 

A 


0088 " 

C9 

RET 





5 NO ESCAPE - 

NORMAL CONTROL KEY 


0089 •" 

21 0154' 

..NOESs LXI 

HiCKTBL 


008C"' 

181B 

JMPR 

,, „ LOOK 




? HOW ABOUT S 

HIFT KEY? 


oust" 

3A 67F7 

..NOCKs LDA 

KEYTRK+SK1RAM 


0091 "' 

CB47 

BIT 

SKIBIT,A 


0093"' 

20 OC 

JRNZ 

..SKDN 


0095 •" 

3A 67FE 

LDA 

KEYTRK+SK2RAM 


0098"' 

CB57 

BIT 

SK2BIT,A 
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009A '■ 

2005 

JRNZ 

. . SKDN 

009C 

7E 

MOV 

A, M 5 IS SHIFT LOCKED? 

009D •" 

E680 

AN I 

SLBITM 

009F" 

2805 

■JRZ 

. . NOSK 



; yep - IJSE SHIFT LOOKUP TABLE 

00 A1 

21 0114" 

. . SKDN's LX I 

H,SKTBL 

OOA4" 

1803 

JMPR 

. . LOOK 

00A6" 

21 00 D 4 •" 

..NOSKs LX I 

H,NORTBL ? ASSUME NOT 

00 A 9"' 

0600 

..LOOKS MVI 

B, 0 5 DO TABLE LOOKUP 

OOAB" 

09 

DAD 

B 

00 AC 

7E 

MOV 

A,M ? GET ASCII 

00AD '■ 

4F 

MOV 

C, A 5 SAVE CHARACTER 

OOAE-V 

A7 

ANA 

A 5 VALID KEY? 

OOAF •" 

C8 

RZ 

? ZERO MEANS NOT SO 



? IS UPPER/LOWER ALPHA REVERSE WANTED? 

OOBO 

3A 67FF 

LDA 

KEYFLG 

00B3-' 

E640 

ANI 

MDBITM 

00B5-’ 

79 

MOV 

R 

JRZ 

A,C ? STAGE CHAR FOR WHATEVE 

00B6" 

| *“« 

. . NORM 

IS SET/IS CHARACTER IN RANGE FOR COMFUSIO 

? REVERSE MODE 

N 

CPI 

GOBS-' 

FE41 

-A-' 

OOB A 

380E 

JRC 

..NORM ? SKIP IF < UPPER A 

OOBC 

FE7B 

CPI 

7BH ? OR IF ABOVE LOWER Z 

OOBE-‘ 

300A 

JRNC 

..NORM 

OOCO" 

FE61 

CPI 

61H ? COOL IF >= LOWER A 

00C2 

3004 

JRNC 

. . BIZR 

00C4 ■- 

FE5B 

CPI 

5BH ? BAD IF ABOVE UPPER Z 

0006 

3002 

JRNC 

„ . NORM 

00C8-' 

EE20 

..BIZRs XRI 

20H ? DO REVERSAL 

OOCA" 

37 

..NORMS STC 


OOCB •- 

C9 

RET 




S KEYBOARD SCANNER TABLES 



? TABLE OF LIVE 

KEYS - ORDERED AS THE SCAN MATRIX IS 

OOCC 


KEYMESs 


OOCC'' 

FA 

.BYTE 

11111010B 

OOCD " 

DF 

.BYTE 

1101111IB 

OOCE 

pp 

.BYTE 

llllllllB 

OOCF 

p 7 

.BYTE 

111 1011IB 

OODO •' 

FF 

. BYTE 

uiiii i is 

00D1 -■ 

pp 

. BYTE 

llllllllB 

00D2 

FF 

.BYTE 

llllllllB 

00D3 ■" 

EO 

.BYTE 

111OOOOOB 



? CHARACTER LOOKUP TABLES 

tt 

? . , 

; UNSHIFTED CHARACTERS 

? ORDERED BY ROW, THEN COLUMN STARTING WITH BIT ZERO 

00D4 


NORTBLs 


00D4-" 

000000091B51 

„ BYTE 

0,0,0 , 09H , 1BH , QC 1 

OODC •” 

204247465900 

.BYTE 

, 'B' , G " , F , -Y-' , 0, •" 6•“ , '7' 

00E4 •" 

564344535254 

. BYTE 

-• V •- , •- C 7 D , ■- S •••, •- R •- , -• T •- , •- 4 •- , > 5 

OOEC " 

585A41005745 

.BYTE 

••• X •-, •- Z , ••• A •-, 0 7 - W ••• 7 •- E , •- 2 ••• 7 3 ••• 

00F4 

4E4D4A484955 

.BYTE 

N '• 7 • ' M " 7 •- J • - 7 H -■ 7 •- I ■ - 7 U '■ 7 8 •" 7 9 " 

OOFC 

2C2E4C4B504F 

.BYTE 

•- 7 •" 7 - . •- 7 •- L - 7 K -• 7 •- P •- 7 ■- 0 •- 7 0 " 7 ~ 
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0104" 

2F007C3B003A 

. BYTE 

- / -, 

0 7 70H , - ? 7 0 7 •" s - 7 1 - 7 •" * - 

01 OC- 

000000000050 

.BYTE 

0 , 0 , 

0,0, 0, 5CH, RUBOIJT, ODH 



5 SHIFTED CHARAC 

;:TERS 


0114" 


SKTBL.S 



0114" 

000000091B71 

. BYTE 

OiO) 

0,09H, 1BH, 71H, - C - , ■" ! - 

one- 

206267667900 

.BYTE 

7 

62H, 67H, 66 H, 79H, 0, " Sc", 27H 

0124- 

766364737274 

.BYTE 

76H 7 

63H, 64H, 73H, 72H, 74H, " $ - , •" % 

0120 - 

787A61007765 

.BYTE 

78H, 

7AH, 61H, 0, 77H, 65H, 22H, # - 

0134- 

6E6D6A686975 

. BYTE 

6 EH, 

6DH,6AH,68H,69H,75H,"(",-) 

013C- 

303E606B706F 

.BYTE 

-< - 7 

- > - , 6 CH, 6 BH, 70H ,‘ 6 FH, 0, " = " 

0144"' 

3F005F2B0040 

.BYTE 

? *" 7 

0, 5FI-I, + - , 0, " @ - , - I - , 85H 

014C- 

000000000000 

. BYTE 

0 , 0 , 

0,0,0,0,CNTRLU,ODH 



; CONTROL CHARACTERS 


0154"' 


CKTBLS 



0154"' 

000000091B11 

.BYTE 

o»'o» 

0 , 09H , 1BH 7 1IH 7 O 7 O 

0150- 

200207061900 

.BYTE 


2,7,6719H,0,0,0 

0164" 

160304131214 

. byte: 

16H 7 

3,4,13H , 12H,14H , 0,0 

0160 

181AO1001705 

.BYTE 

18H 7 

1AH,1,0,17H,5,0,0 

0174" 

OEODOA080915 

. BYTE 

UEH 7 

ODH,0AH, 8 , 9 ,15H, 0,0 

0170- 

OOOOOCOB1OOF 

.BYTE 

Oi 0 ? 

OCH,OBH,10H,OFH , 0, 0 

0184" 

008182008000 

. BYTE 

0,81H,82H 7 0 7 80H,0,1DH,84H 

0180- 

000000000083 

.BYTE 
. END 

0 , 0 , 

0 * 0 7 0 7 83H 7 86H 7 OEtH 
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+++++ SYMBOL TABLE +++++ 


AASN 

005F 

ARGSTK 

60CC 


AIJARTD 

002A 

AUART8 

002B 

BACKGR 

65CC 

BAIJDSE 

0023 


BLANK 

0020 

BOTRAM 

6000 

BOTTOM 

64A9 

BSAUD 

0022 


CHARSL 

65DD 

CK1BIT 

0003 

CK1RAM 

0003 

CK2BIT 

0004 


CK2RAM 

0007 

CKTBL 

0154 

CLEARS 

60CA 

CNTRL 

OOOC 


CNTRLC 

65CD 

CNTRLO 

65 D 9 

CNTRLU 

0015 

CNTRLZ 

65E4 


CPLARE 

611C 

CPLSIZ 

0140 

CR 

OOOD 

CSBLOK 

668D 


CSFL.AG 

6260 

CURCX 

6814 

CURCY 

!> 

CO 

J-fc 

!> 

CIJRREN 

64 A 5 


c«co 

0011 

C.C1 

0012 

C.CX 

OOOB 

C.CY 

OOOD 


C.DP 

0013 

C.ST 

0002 

C. X 

0003 

C. XF 

OOOF 


C. XS 

0007 

C. Y 

0005 

C. YF 

0010 

C. YS 

0009 


DDTON 

65CE 

DEVBL 


DEVCLO 

6579 

DEVCLl 

657B 


DEVCL2 

657D 

DEVCL3 

657F 

DEVCL4 

6581 

DEVCL5 

6583 


DEVCL6 

6585 

DEVCL7 

6587 

DEVFB 

65GB 

DEVHCB 

658F 


DEVMO 

658B 

DEVNM 

65B7 

DEVNT 

658D 

DEVTNA 

65BB 


DEVTNB 

65BF 

DEVTNC 

65C3 

DEWft 

65 BD 

DEWAR 

6579 


DEWB 

65C1 

DEVVBL 

6591 

DEVVC 

65C5 

DEWD 

65C9 


DEVVN 

65B9 

DEWS 

65C7 

DEVXCD 

65B3 

DEVYCD 

65B5 


DOLPLH 

62E8 

DOLPPT 

62EA 

DUMBST 

6577 

EDBCNT 

64AD 


EDCCNT 

64A7 

EDLONG 

6812 

EDMODE 

681C 

EDNAME 

64 A1 


EDNCX 

680C 

EDNCY 

680E 

EDNEWS 

64A5 

EDOCX 

6808 


EDOCY 

680A 

EDPN 

6806 

EDPO 

6804 

EDPTRC 

64AB 


EDPTRL 

64A9 

EDSTR 

681A 

ERABIT 

0002 

ER.ARA 

002F 


ER.ARG 

0034 

ER.ASN 

0015 

ER. BOX 

001A 

ER.CUN 

0002 


ER.CMD 

00 IF 

ER.CNV 

0016 

ER.COR 

00 IB 

ER.CTL 

0036 


ER.DEL 

0026 

ER.DIM 

0030 

ER.DIV 

0018 

ER. DP 

0037 


ER.DSK 

0019 

ER.EDT 

0035 

ER.FMT 

0038 

ER.FNF 

001 c 


ER.FOR 

0028 

ER.IMP 

0003 

ER.LAB 

0025 

ER.MAC 

0022 


ER.NAE 

002D 

ER.NAM 

0029 

ERNEG 

003A 

ER.NOT 

0023 


ER.NUL 

0039 

ER.NUM 

002B 

ER.NXT 

00 ID 

ER.OFL 

0017 


ER.OPN 

0014 

ER.OVE 

00 IE 

ER» PAR 

002A 

ER.REN 

002C 


ER.RET 

0024 

ER.SEP 

0021 

ER-SNE¬ 

0031 

ER.SPC 

002E 


ER.STK 

0004 

ER. SW 

0032 

ER. TER 

0020 

ER.UFL 

0033 


ER.UNF 

0027 

ESCKEY 

0004 

EXTDEL. 

002E 

E.HVAL 

0002 


E.L.VAL 

0001 

E.SIZ 

0005 

E.TYP 

0000 

E.VAL 

0001 


FCNTH 

65D2 

FCNTI 

65D3 

FCMTJ 

65D4 

FCNTK 

65D5 


FCNTL 

65D6 

FCNTV 

65E0 

FCNTY 

65E3 

FIRST 

64A3 


F LAGS 

65CB 

FOREGR 

65D0 

FRAGSI 

0400 

FREEL8 

65E5 


FSTDOL 

648C 

FSTINT 

62EC 

FWDPTR 

65E7 

HCAREA 

6593 


HORCB 

0009 

INCRO 

65E9 

INFBK 

OOOD 

INLIN 

OOOF 


INMOD 

00 OE 

■JUNK 

6542 

KBLOCK 

65F1 

KEYFLG 

67FF 


KEYMES 

00 CC 

KEYPSN 

0000 

KEYPTK 

6533 

KEYSCN 

0027 •' 

I 

KEYTRK 

67F7 

LEDS 

0024 

LF 

OOOA 

LISTON 

65E2 


MACSTU 

6536 

MACTOP 

625E 

MAGIC 

OOOC 

MAXFRG 

0040 


MDBITM 

0040 

MNMX 

65EB 

MPBAV 

0016 

MPMO 

0010 


MPNCV 

0015 

MPNV 

0017 

MPTMA 

0011 

MPTNB 

0012 


MPTNC 

0013 

MPVIB 

0014 

NBLKB 

0000 

NBLKM 

0001 


IMEWBOT 

6810 

ML 

0OOA 

MORML. 

0020 

NORTBL 

00 D 4 


NSADDR 

6802 

NUMBUF 

64A3 

OLDCHR 

64A0 

OLDCUR 

649F 


OLDKEY 

649D 

OLDXY 

65EF 

ONEBUF 

6729 

OPRL. 

0014 


OPRSP 

655B 

OPRSTK 

6547 

OPRSZ 

655D 

OUTOFF 

62E7 


3cnt 

655E 

PIXVAL 

65ED 

POINTE 

64A7 

PONOFF 

65 DA 


PRINTR 

6540 

RAMEND 

7ppp 

RAMSTR 

6900 

RANSHT 

655F 


RMDTMP 

6538 

RUBACK 

0005 

RUBOUT 

007F 

SAVESP 

625C 


SCNEED 

0004 

SCRWIN 

67CD 

SHYLOK 

0001 

SK1BIT 

0000 


SKIRAM 

0000 

SK2BIT 

0002 
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SK2RAM 

0007 

SKTBL 

0114- 


SLBITM 

0080 


SOPRSP 

653D 

SOPRSZ 

653F 

STACK 

60C8 


STAKTO 

6000 


STRSIZ 

6300 

SUBSTU 

6534 

TAB 

0009 


TAPBUF 

64B3 


TAPCON 

64AF 

TAPPRO 

64B1 

TBFEND 

6533 


TEMPHD 

60CA 


TEMPS 

62E5 

TMPARG 

67AD 

TOKBIT 

0002 


TOKRAM 

0000 


TOP 

6818 

TTYBEG 

6261 

TTYEND 

62E1 


TTYINT 

62E3 


TTYPTR 

62E1 

TXTWIN 

67E2 

IJARTD 

OOEO 


UARTFL 

649C 


HARTS 

00E1 

USREND 

65F1 

V3PTR 

6573 


VBLANK 

OOOA 


VCTR 

0021 

VDCHAR 

649E 

VDNLF 

65CF 


VIPLH 

6545 


VOICED 

6563 

WRMOBE 

65EE 

XPAND 

0019 


ZGIM2 

0001 


ZGREND 

68 ID 

$AADR 

0010 

*ADDRF 

0007 


$ADDRI 

0005 


$ADDRS 

0009 

$ANY 

001A 

$ANYNA 

FFFC 


$ANYVA 

FFFE 


*ARGPT 

0011 

$BGPTR 

OOOF 

$BNDL 

0007 


$CALLE 

OOOD 


$CMDAD 

0018 

$CPLBL 

002A 

fCSBLO 

0028 


fDATAP 

0007 


$DOLDE 

0001 

$DOLOO 

0002 

$DVAL 

0000 


T.END 

001 c 


$FADR 

OOOE 

$FLAGS 

0002 

$FORBL 

0024 


$FORPT 

OOOB 


$FVAL 

0006 

$GOSUB 

001A 

$ I ADR 

000c 


$INPBU 

0018 


$INPPT 

0016 

$1VAL 

0004 

*KEYBL 

0026 


$LENGT 

0001 


$LINPT 

0005 

$LGCPT 

0009 

$MIBBL 

0022 


$MIBEN 

00 IB 


$NAMAD 

OOOA 

$NAME 

OOOA 

$N ASCI 

0009 


$NDEL 

0080 


UNLINK 

0003 

♦NULL 

0002 

$NVAUJ 

0005 


$REPEA 

00 IE 


$RVSTU 

0013 

$8AME 

0020 

fSASCI 

OOOA 


$SLEN 

0006 


$STRAD 

0008 

tSTRPT 

0003 

$TAF 

0000 


$TYPE 

0000 


$IJSE 

0005 

.BLNK„ 

0000:03 X 

.DATA. 

0000* 

X 

.PROG. 

0194- 

X 
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CHARS - 



.INSERT AsS.ASM 



©.REMARK / 



© 

& 


© 



© 



© 



© 



© 



© 



© 

* 


© 

& 


© 



© 



© "WHEN YOU CARE ENOUGH TO PROGRAM 


© THE VERY BEST" 

0 


© ZGRASS V2. 00000.000 


©BY JAY FENTON, NOLA DONATO, AND TOM DEFANTI 


© 

(C> 1978 


© 



©/ 



.INSERT As ZRAM.ASM 


. PREL. 



.LINK 



.IDENT 

CHARS 


: V .INTERN 

BLDBOX 


„INTERN 

CHARWIN 


.INTERN 

DCHAR 


.INTERN 

DVDE2 


.INTERN 

GETCX 


.INTERN 

GETCY 


.INTERN 

INIVDA 


.INTERN 

INIVDM 


.INTERN 

INIVDR 


.INTERIM 

LARGE 


.INTERN 

PUTCUR 


„INTERN 

RESCX 


.INTERN 

RESCY 


.INTERN 

RESCXY 


.INTERN 

SETCX 


.INTERN 

SETCY 


.INTERN 

SMALL 


.INTERN 

TEXT 


.INTERN 

ZDUTCH 


.EXTERN 

ARG 


.EXTERN 

COSINE 


.EXTERN 

GPHLDE 


.EXTERN 

DOBOX 


.EXTERN 

ERRPGM 


.EXTERN 

INC5IY 


.EXTERN 

ISNL 


.EXTERN 

KISNL 


.EXTERN 

DUTCH 


.EXTERN 

PNXT 


.EXTERN 

POUTCH 
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PAGE 


EXTERN R2A 
.EXTERN SCROLE 
, EXTERN SESEE 
, EXTERlNi/THEI' 


0001 


BX.X=1 

/T 

0006 


BX.V=6 

f ! 0 

OOOB 


BX.XS= 

11 

0010 


BX.YS= 

16 

0015 


BX.MOD 

=21 

oode 


MAGIC* 

OCH 

0019 


XF'AND= 

19H 



5 TEXT 

COMMAND 



5 VERY 

SIMILAR TO PRINT 



M. CMDCTEXT, TEXTXYO, TS» TEXTA, TEXTSK 

OOOO" 

18 

+TEXTS 

„BYTE $CMDADR 

0001/* 

04 

H** 

.BYTE (TEXTX—TEXT)/16+1 

0002“ 

00 

4* 

«BYTE 0 

0003-' 

0035“ 

■>{•• 

.WORD TS 

0005**’ 

0029 *“ 

4- 

.WORD TEXTS 

0007“ 

OOOF *“ 

4* 

.WORD TEXTA 

0009" 

5445585400 

4- 

.ASCIZ /TEXT/ 



+i 


OOOE" 

00 


.BYTE 0 

OOOF ■" 

63 

TEXTAs 

.BYTE 99 

0010-' 

582C592C4D4F 

.ASCII /X,Y,MODE,THING,THING,.../ 

0029-' 

E5 

TEXTS: 

PUSH H 

002A-' 

21 0806 


LX I H,0806H 

002D •" 

22 67F1 


SHLD TXTWIN+C.XF 

0030 *“ 

21 0111" 


LX I H,DIS57 

0033 -' 

1817 


JMF'R JOINTS > ._^ 

0035" 


TEXTXs 




? TS (TEXT SMALL E!\ITj3YT ^ 



M.CMDCTS,TS X,0,TWfflCTEX TA,TSS 1Z 

0035" 

18 

4-TSs 

.BYTE $CMDADR 

0036" 

06 

4- 

.BYTE (TSX-TS)/16+1 

0037" 

00 

4. 

.BYTE 0 

00.38" 

0000s12 

4. 

.WORD THEN 

003A " 

0042" 

4* 

.WORD TSS 

003C " 

OOOF*" 

"4- 

.WORD TEXTA 

003E " 

545300 

4* 

.ASCIZ /TS/ 



+3 


0041" 

00 


. BYTE 0 

0042" 

E5 

TSS! 

PUSH H 

0043" 

21 0604 


LX I H,0604H 

0046 " 

22 67F1 


SHLD TXTWIN+C.XF 

0049 " 

21 0435" 


LX I H,DIS35 

004C " 

22 67F5 

JOINTS 

: SHLD TXTWIN+C.DP 

004F" 

El 


POP H 

0050" 

CD 0000:04 


CALL ARG 

0053 " 

04040408IE 


. BYTE $IVAL,$IVAL ,% IVAL,$STRADR,^REPEAT 

0058 " 

FDE5 


PUSH Y 

005A" 

E5 


PUSH H 

005B " 

21 01C5" 


LX I H,TOUTCH 

005E" 

22 6540 


SHLD PRINTR 

0061 " 

DD21 67E2 


LX I X,TXTWIN 
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0065 ■" 

FD5E01 

MOV 

EiICY) 

0068" 

FD5602 

MOV 

D,2(Y) 

006B •" 

CD 0391/ 

CALL 

SETCX 

006E •" 

FD5E06 

MOV 

E,6(Y> 

0071'' 

FD5607 

MOV 

D 7 7 (Y) 

0074" 

CD 0398 •" 

CALL 

SETCY 

0077**’ 

FD7E0B 

MOV 

A,11(Y) 

007A" 

DD7712 

MOV 

C.Cl< X ),A 

007D •" 

11 OOOF 

LX I 

D, 15 

0080" 

FD19 

DADY 

D 

0082 •" 

CD 0000SOD 

CALL 

PNXT 

0085 x 

3E0A 

MVI 

A, NL 

0087 •** 

CD 0000«OE 

CALL 

POUTCH 

008A' - 

21 OOOOsOC 

L.X I 

H,OUTCH 

008D •" 

22 6540 

SHLD 

PRINTR 

0090" 

El 

POP 

H 

0091 *** 

FDE1 

POP 

Y 

0093 *'* 

C9 

RET 


0094 •** 


TSXs 

; SETUP LARGE C 

HARACTER SET 

0094" 

E5 

LARGE: PUSH H 


0095 •" 

21 0111 "' 

LX I 

H,DIS57 

0098'' 

22 67E0 

SHLD 

SCRWIN+C.DP 

009B *" 

21 0806 

LX I 

H,0806H 

009E-" 

22 67DC 

SHLD 

SCRWIN+C.XF 

00 A 1 " 

1 SOD 

■JMPR 

CHOUTC 

00A3**’ 

E5 

SMALL: PUSH H 


00A4 '' 

21 0435 •" 

LX I 

H 7 DIS35 

00A7'' 

22 67E0 

SHLD 

SCRWIN+C.DP 

OOAA 

21 0604 

LX I 

H,0604N 

OOAD " 

22 67DC 

SHLD 

SCRWIN+C.XF 

OOBO" 

3E0C 

CHOUTCs MVI 

A,CNTRL 

OOB2 •" 

CD 01AF •" 

CALL 

ZDUTCH 

00B5 •' 

AF 

XRA 

A 5 ENABLE DISPLAY 

00B6 " 

32 65CF 

STA 

VDNL.F 

00 B 9 •" 

El 

« n DONE s POP H 


OOBA •" 

C9 

RET 

S MODIFY WINDOW PARAMETERS 

M.CMDICHARWINDOW,..CHWX, 0 ,COSINE,,„CHWA,..CHWSJ Z 

OOBB" 

CO 

+CHARWINDOW: 

.BYTE fCMDADR 

OOBC ■" 

06 

+ „BYTE < 

..CHWX-CHARWINDOW)/16+1 

OOBD •" 

00 

+ .BYTE 0 


OOBE"' 

0000s05 

+ .WORD COSINE 

ooco "’ 

OOCF •" 

+ .WORD . 

«CHW3 

00C2 "' 

00D2 *'* 

+ .WORD . 

.CHWA 

00C4"' 

434841525749+ »ASCIZ 

+ 1 

/CHARWIMDOW/ 

OOCF 

CD 0000 s 04 

.»CHWSs CALL 

ARG 

00D2 " 

040404040404 ..CHWAs „BYTE 

$IVAL,$IVAL,$IVAL,«IVAL,$IVAL,$IVAL,$TAF 

00D9 '' 

E5 

PUSH 

H 

OODA • 

FD6E01 

MOV 

L,BX.X(Y) 

OODD" 

FD6602 

MOV 

H,BX.X+l(Y) 

OOEO-" 

22 67D0 

SHLD 

SCRWIN+C.X 

00E3 " 

FD6E06 

MOV 

L,BX.Y(Y) 
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00E6 " 

FD6607 

MOV 

HrBX.Y+l(Y > 

00E9 •" 

22 67D2 

SHLD 

SCRWIN+C.Y 

OOEC 

FD6E0B 

MOV 

L*BX.XS(Y) 

OOEF-" 

FD660C 

MOV 

H,BX.XS+1<Y) 

00F2 •- 

22 67D4 

SHLD 

SCRWIIM+C. XS 

OOFS’" 

FD6E10 

MOV 

L,BX.YS(Y) 

OOFS’" 

FD6611 

MOV 

H» BX»YS+1(Y> 

OOFB" 

22 67D6 

SHLD 

SCRWIN+C.YS 

OOFE " 

FD7E15 

MOV 

A? BX.MOD(Y) 

0101" 

32 67DF 

STA 

SCRWIN+C.C1 

0104" 

FD7E1A 

MOV 

A 7 BX.MOD+5(Y) 

0107" 

32 67DE 

STA 

SCRWIN+C.CO 

010 A ” 

3E0C 

, MV I 

A, CNTRL 

01OC " 

CD 01AF" 

CALL 

ZDUTCH 

01 OF " 

El 

POP 

H 

0110" 

C9 

RET 


011 1 ’" 


..CHWXs 

5 DISPLAY 5 X 7 

CHARACTER 

0111" 

FE20 

DIS57 s CPI 

2 OH 

0113." 

3002 

JRNC 

. . LOK 

0115" 

3E3F 

..ubad*' MV I 

A,"?" 

0117." 

FE7B 

..LOKs CPI 

7BH 

0119" 

SOFA 

JRNC 

..UBAD 



? SET FC AND BC 


01 IB" 

4F 

MOV 

C, A 

011C" 

DD7E12 

MOV 

A 7 L n L 1 ( X ) 

01 IF" 

07 

RLC 


0120 " 

07 

RLC 


0121 " 

DDAE11 

XRA 

C.CO(X) 

0124”' 

E60C 

AMI 

OCH 

0126" 

DDAE11 

XRA 

C.CO(X) 

0129”' 

D319 

OUT 

XPftND 



; LOAD BASE OF 

APPROPRIATE CHAR SET 

012B" 

79 

MOV 

A 7 L 

012C " 

2A 020B 

L.HLD 

20BH S LOAD THRU DOPE VECTOR 

012F " 

FE61 

CPI 

61H 

0131 

380 ~I 

JRC 

. . UPER 

0133 " 

21 OSCE" 

LX I 

H.LC57 5 WRONG 

013.6" 

D661 

SUI 

61H 

0138’" 

1802 

JMPR 

. . JOIN 

013ft" 

D620 

..UPERs SUI 

20H 

013C 

4F 

..JOINS MOV 

C 7 A 

013D" 

0600 

MV I 

B 7 0 

013F 

3E07 

MV I 

A, 7 

0141 

09 

„.ADL s DAD 

B 

0142" 

3D 

DCR 

A 

0143" 

20 FC 

JRNZ 

. . ADL 



? HL=CHAR START 

, DE=COORD 

0145" 

7 A 

MOV 

A, D 

0146" 

C604 

ADI 

4 

0 1 48 " 

57 

MOV 

D, A 

0149 ’ 

ID 

DCR 

E 

014 A" 

ID 

DCR 

E 

014B" 

E5 

PUSH ■ 

H 

014C” 

CD 0000s 

OF CALL 

R2A 
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014F" 

CBB4 

RES 

6 » H 

0151" 

F628 

OR I 

28H 

0153- 

D30G 

OUT 

MAGIC 

0155“ 

01 

POP 

D 

0156- 

0607 

MV I 

B,7 

0158- 

1A 

..LOOPS LDAX 

D 

0159-' 

77 

MOV 

Mr A 

015A-" 


INX 

H 

015B" 

77 

MOV 

M, A 

015C-" 

05 

PUSH 

D 

015D •" 

11 0027 

LX I 

D 7 39 

0160" 

19 

DAD 

D 

0161-' 

Di 

POP 

D 

0162" 

13 

INX 

D 

0163“ 

10F3 

DJNZ 

..LOOP 

0165“ 

C9 

RET 

5 INITIALIZE 

WONDERFULL i 

0166" 

21 0435" 

INIVDRs L.XI H 

i DIS35 

0169-' 

22 67E0 

SHLD 

SCRWIN+C.DP 

016C" 

21 0604 

LX I H 

,0604H 

016F" 

22 67DC 

SHLD 

SCRWIN+C.XF 

0172" 

1811 

■JMPR 

INIVDA 

0174" 

21 0066 

INIVDMs LXI H 

, 102 

0177" 

22 67EB 

•dHLtEJ 

TXTWIN+C.YS 

017A" 

22 67D6 

SHLD 

SCRWIN+C.YS 

017D" 

21 0000 

LX I H 

, 0 

0180" 

22 67D2 

SHLD 

SCRWIN+C. Y 

0183" 

1812 

JMPR 

INIVDX 

0185" 

21 004E 

INIVDAs LXI H 

,78 

0188" 

22 67EB 

SHLD 

TXTWIN+C.YS 

018B" 

21 0018 

LX I H 

,24 

018E" 

22 6706 

SHLD 

SCRWIN+C.YS 

0191" 

21 FFD9 

LX I H 

, -39 

0194" 

22 67D2 

SHLD 

SCRWIN+C.Y 

0197" 

21 OOAO 

INIVDXs LXI 

H, 160 

019A" 

22 67E9 

SHLD 

TXTWIN+C 

0190" 

22 67D4 

SHLD 

SCRWIN+C 

01 AO" 

3E05 

MVI A 

,5 

01 A 2 " 

32 67DF 

STA 

SCRWIN+C 

01A5 ' 

3E01 

MVI 

A,NBLKM 

01A7" 

32 67CF 

STA 

SCRWIN+C 

Q1AA" 

3E0C 

MVI A 

,CNTRL 

.01 AC" 

C3 01AF" 

JMP ZOUTCH 

5 OUTPUT CHARACTER ON SCI 

01AF" 

DDES 

ZOUTCH" PUSH 

X 

01 B 1 " 

E5 

PUSH 

H 

0102 " 

21 65CF 

L.X I 

H,VDNLF 

01B5" 

CB46 

BIT 

0, M 

01B7" 

El 

POP 

H 

01 B 8 " 

2008 

JRNZ 

. . NOZ 

01 BA" 

DD21 67CD 

LX I 

X,SCRWIN 

01 BE " 


STC 


01BF" 

CD 01C6" 

CALL 

DCHAR 

01C2" 

DDE 1 

« NOZ« POP 

X 

01C4" 

C9 

RET 



CONTROL PACKET 


SMALL WINDOW 


. STUFF 


: CENTER Y 


TWO LINES 


XS 

XS 

Cl 

ST 

CLEAN 


SCREEN 


I 

REAL.!. 


THINK 
Y DO IT 


PAGE 5 
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5 ENTRY TO ALWAYS TYPE 


01C5" 

37 

TOUTCHs STC 

? PLEASE 

TYPE 

01C6"' 

FDE5 

5 DRAW CHARACTER IN WINDOW 
? ENTRY* IX=WINDOW DESCRIBEE 
? A=CHARACTER 

5 IF CY SET - ACTUALLY DRAW THE CHARACTER, ELSE 

5 UPDATE CX,CY AS IF CHARACTER WERE DRAWN 

DCHAR* PUSH Y 

01 cs 

E5 

PUSH 

H 


01C9 

D5 

PUSH 

D 


01C A " 

C5 

PUSH 

B 


OICB"' 

F5 

PUSH 

PSW 


01 cc- 

FD21 67AD 

LX I 

Y,TMPARG 


01 DO-' 

FEOA 

CPI 

NL ? NEW LINE CHAR? 

01D2 " 

2064 

JEIMZ 

..NONL 


01D4"' 

FI 

5 IF REAL DRAWING WANTED - PLOP 
OTS 

? ON THIS LINE 

POP PSW 

SPACES OVER REMAINING SL 

01D5 

F5 

PUSH 

PSW 


01D6 "' 

30 lb* 

■JRNC 

„„KBND 


01DS "' 

DDCB0246 

BIT 

NBLKB,C.ST(X) 


01 DC " 

2812 

JBZ 

..KBND 


01DE 

CD 0331." 

..KILB* CALL 

COMURL 


0LEI" 

CD 0000*06 

L'ALL 

CPHLDE 

? A SPACE TO NAIL? 

01E4 •" 

2802 

•JRZ 

. . KBTR 


01E6" 

3008 

JRNC 

..KBND 


01E8 "' 

CD 03AB "' 

..KBTR* CALL 

BOXXYF 


01EB "' 

CD 030C"' 

CALL 

AD VCX 


01 EE 

18EE 

JMF'R 

..KILB 


01F0-' 

01F0"' 

CD 034F"' 

..KBND* 

L.AL.L 

SCXLLL 

SET LEFT LOWER LIMIT 

UlFS" 

DD5E10 

; IS CY LT -YS 
MOV 

/2+YF+CYF-l)/2? 

E,C.YF(X > 

5 D ALREADY=0 

01F6 


MOV 

H, D 


01F7 

6B 

MOV 

LiE 


01FS " 

CD 0421 •" 

CALL 

DVDEM2 


01FB" 

19 

DAD 

D 


01FC-" 

DD5E09 

MOV 

E,C.YS< X) 


0 IFF"' 

DD560A 

MOV 

D,C„YS+1(X) 


0202"' 

IB 

OCX 

D 


0203"' 

CD 042A"' 

CALL 

DVDE2N 


0206"' 

19 

DAD 

D 


0207"' 

CD 038A" 

CALL 

GETCY 


020A" 

CD 0000*06 

CALL 

CPHLDE 

? HL=LL, DE=CY 

020D "' 

3817 

JRC 

.„NOSC 

5 SKIP SCROLLING IF OK 

020F"' 

2815 

JRZ 

..NOSC 


0211" 

DDCB02E6 

? CALL SCROLL 
SET 

ROUTINE 

SC'NEED, C. ST( X ) 

S SET SCROLLING WAS NEED 

0215" 

FI 

ED FLAG 

POP 

PSW 


0216" 

F5 

PUSH 

PSW 


0217" 

D2 0305" 

JMC 

..DONE 

? SKIP IT IF DRAW OFF 

021 A" 

DD7E10 

MOV 

A i C.YF(X) 


02 ID"' 

CD 03ED" 

CALL 

BLDBOX 
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0220 

CD 0000s10 

CALL 

SCROLE 

0.223' 

C3 0305" 

•JMP 

..DONE 



? SCROLLING NOT 

NEEDED - ADVANCE CY 

0226" 

EB 

..NOSCs XCHG 

? CY TO HL 

0227 

DD5E10 

MOV 

E» C.YF(X > 

022A "' 

1600 

MV I 

D,0 

022C **’ 

A7 

ANA 

A 

022D" 

ED52 

DSBC 

D 


DD750D 

MOV 

C.CY(X) ?L 

0232’*’ 

DD740E 

MOV 

C.CY+1(X)iH 

0235" 

C3 0305" 

•JMP 

..DONE 

0238" 

FE7F 

.-NONL s CPI 

RUBOUT 

023A •" 

2066 

JRNZ 

«.NORB 



? ZONK OUT THE 

CURSOR 

023C- 

F.t 

POP 

PSW 

023D-" 

F5 

PUSH 

PSW 

023E **' 

3003 

JRNC 

..NZNK 

0240"' 

CD 03AB"' 

CALL 

BOXXYF 5 KILL CURSOR 

0243 **’ 


„.NZNKs 

? RUBOUT CHARAC 

TER - BACKUP CX 

0243 •" 

DD5E0F 

MOV 

E,C.XF(X) 

0246"' 

1600 

MVI 

D 10 

0248" 

DD6E0B 

MOV 

L,C.CX(X> 

024B" 

DD660C 

MOV 

H» C.CX+1(X > 

024E-" 

A7 

ANA 

A 

024F *’ 

ED 52 

DSBC 

D 



? DID WE BACKUP 

TO BEFORE THE BEGINNING OF THIS LINE? 

0251 •" 

DD5EU7 

MOV 

E.C.XS(X) 

0254"' 

DD5608 

MOV 

D» C.XS+1(X) 

0257"' 

IB 

DCX 

D 

0258"' 

CD 042A"' 

CALL 

DVDE2N 5 DE=~XS/2 

025B-" 

CD 0000s06 

CALL 

CPHLDE ? HL= NEW CX 

025E"' 

3031 

JRNC 

..NOWR 5 JUMP TO STORE GOODIE 



5 WRAP AROUND TO PREVIOUS LINE 

0260"' 

DDCB02EE 

SET 

RUBACK i C.ST(X) 3 YES - SET STATUS BIT 

0264"' 

CD 038A" 

CALL 

GETCY 

0267" 

DD6E10 

MOV 

L»C.YF<X) 

026A" 

2600 

MVI 

H, 0 

026C"' 

19 

DAD 

D 

026D" 

E5 

PUSH 

H 3 CHECK FOR BACKUP PAS 



START 


026E"' 

CD 031C"' 

CALL 

COMUTL 

0271"' 

D1 

POP 

D 

0272" 

CD 0000s06 

CALL 

CPHLDE 

0275"' 

DA 0305"' 

JC 

..DONE 3 SKIPOUT IF YES 

0278"' 

CD 0398"' 

CALL 

SETCY 



SET CX TO LAS 

T VALID POSITION ON PREVIOUS LINE 

027B"' 

CD 034F "' 

CALL 

SCXLLL 3 HL=CX OF LL.L 

027E" 

CD 0331" 

CALL 

COMURL 5 DE=URL 

0281"' 

DD4E0F 

MOV 

C,C„XF(X) 

0284"' 

0600 

MVI 

B» 0 

0286"' 

09 

..GROKS DAD 

B 3 KEEP ADDING TILL 

0287"' 

CD 0000 s 06 

lall 

CPHLDE 3 WE HIT THE LIMIT 

028A" 

38 FA 

JRC 

. . GROK 

028C"' 

28F8 

JRZ 

. . GROK 
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028E-' 

A7 

ANA 

A ; 

SUBTRACT TO LEGALIZE 

028F " 

ED42 

DSBC 

B 


0291 '■ 

DD750B 

..NOWR: MOV 

C„CX(X>,L 


0294’" 

DD740C 

MOV 

C.CX+1(X) ,H 


0297" 

FI 

POP 

psw ; 

CHECK CY STATUS 

0298" 

F5 

PUSH 

PSW 


0299" 

D2 0305" 

JNC 

.„DONE 




I. DRAW ERASING 

BOX TO SNUFF RUBBED OUT CHAR 

029C" 

CD 03AB '" 

CALL 

BOXXYF 


029F-" 

03 0305" 

•JMP 

.„DONE 


02 A 2 " 

FEOC 

.,NORBs CPI 

CNTRL 5 SCREEN 

ERASE?? 

02A4 " 

2015 

JRNZ 

. . NOCL 




; SCREEN ERASE 

CHARACTER 


02 A 6 •" 

FI 

POP 

PSW ? 

CHECK FOR CY STATUS 

02A7’" 

F5 

PUSH 

PSW 


02 A 8 " 

300B 

•JRNC 

. .FUZZ 


02AA" 

DD7E11 

MOV 

A 7 C.CO(X ) 5 

GET BC 

02 AD " 

C604 

ADI 

4 


02AF " 

CD 03ED" 

CALL 

BLDBOX 


02B2" 

CD 0000s07 

CALL 

DOBOX ; 

DRAW BOX TO ERASE 

02B5-' 

p*l~f n:^72 x 

..FUZZ s CALL 

RESCXY 


02B8" 

C3 0305’" 

JMP 

..DONE 




5 CHECK FOR CR 

, IF FOUND IGNORETH 

IT 

02BB’" 

FEOD 

. .NOCL.S CPI 

ODH 


02BD ’" 

2846 

JRZ 

. . DONE 




5 NORMAL GOOD 

GUY CHARACTER 




5 DO WE HAVE LINE WRAPAROUND?? 


02BF " 

CD 0331" 

CALL 

COMURL ? 

GET UPPER RIGHT LIMIT 

02C2-" 

CD 0000 s 06 

CALL 

CPHLDE 


0205'" 

3809 

JRC 

«.CXOK 


02C7" 

2807 

JRZ 

..CXOK 




5 WRAP AROUND 

- FORCE NEWLINE 


02C9 •" 

FI 

POP 

PSW 


02 CA-" 

F5 

PUSH 

psw ; 

PASS SAME CY STATUS TO 



NEWLINE 



02GB 

3E0A 

MVI 

A 7 NL„ 


02GD" 

CD 01C 6 " 

CALL 

DCHAR 




? DRAW A BOX TO ERASE BENEATH 


02D0 

FI 

..CXOKs POP 

PSW 


02D1 •" 

F5 

PUSH 

PSW 


02D2’" 

302E 

JRNC 

..CLIP 


02D4 " 

CD 03A3" 

CALL 

B0XXY1 




5 DID THAT BOX 

GET CLIPPED?? 


02D7 " 

FD7E0B 

MOV 

A,BX.XS(Y) 


02 DA-" 

DDBEOF 

CMP 

C.XFCX) 


02DD- 


JRNZ 

. .CLIP 


02DF 

FD7E10 

MOV 

A,BX.YS<Y) 


02E2’" 

DDBE10 

CMP 

C.YF(X) 


02E5 •" 

20 IB 

JRNZ 

. .CLIP 




5 WE HAVE A CLEAR SHOT 


02E7 " 

DD7E0B 

MOV 

A, C.CX(X ) 5 

SET DE=TRANSLATED COOR 



DINATES 



02EA •" 

DD8603 

ADD 

e.x(X) 


02ED-" 

.’;.V ■■ ^pT". 

MOV 

E, A 


02EE •" 

DD7E0D 

MOV 

A7C.CY(X) 
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02F1 

DD8605 

ADD 

C.Y(X) 

02F 4 •' 

57 

MOV 

D,A 

02F5"' 

FI 

POP 

PSW 5 RESTORE CHAR 

02F6 •" 

F5 

PUSH 

PSW 

02F7 *“ 

21 0302“ 

LX I 

Hj..COME 5 PUT RETURN POINT 



ACK 


02FA"' 

E5 

PUSH 

H 

02FB 

DD6E13 

MOV 

LiC.DP(X) 5 HL-ROUTINE ADDR 

02FE *“ 

DD6614 

MOV 

H-. C. DP+1 < X ) 

0301 '■ 

E9 

PCHL 

; BRANCHEROONIE 

0302" 


..COME s 




? UPDATE CX 


0302 *“ 

CD 030C" 

..CLIPS CALL 

AD VCX 



5 ITS ALL OVER 

WITH 

0305*“ 

FI 

..DONEs POP 

PSW 

0306" 

Cl 

POP 

B 

0307 

D1 

POP 

D 

0308“ 

El 

POP 

H 

0309*“ 

FDE1 

POP 

Y 

030B *“ 

C9 

RET 




5 SUBROUTINE TO ADVANCE CX BY ONE SLOT 

030C" 

CD 0383"' 

ADVCXs CALL 

GETCX 

030F *“ 

DD6E0F 

MOV 

Lj C.XF(X ) 

0312"' 

2600 

MV I 

Hi 0 

0314*“ 

19 

DAD 

D 

0315*“ 

DD750B 

MOV 

C. CX( X) j L 

0318"' 

DD740C 

MOV 

C.CX+1(X) ,H 

03 IB" 

C9 

RET 




5 SUB TO COMPUTE UPPER - TOP LIMIT OF WINDOW 



? THIS LIMIT I 

3 RETURNED IN HL 



5 DE IS CLOBBERED 

031C"' 

DD5E09 

COMUTLs MOV 

Ej C . YS(X ) 

03 IF" 

DD560A 

MOV 

DjC.YS+1(X) 

0322" 

13 

I NX 

D 

0323"' 

CD 0422"' 

CALL 

DVDE2 

0326"' 

EB 

XCHG 


0327" 

DD5E10 

MOV 

EjC.YFCX) 

032A-" 

1600 

MVI 

d,o 

032C"' 

CD 042A" 

CALL 

DVDE2N 

032F-" 

19 

DAD 

D 

0330 "' 

C9 

RET 




? SUB TO COMPUTE UPPER RIGHT WINDOW LIMIT 



; RETURNSs DE= 

JRL„j hl.=cx 

0331"' 

DD5E07 

COMURLs MOV 

EjC.XS(X) 

0334 •" 

DD5608 

MOV 

Dj C. XS+1(X > 

0337 •" 

13 

I NX 

D 

0338 •" 

CD 0422"' 

CALL 

DVDE2 ? DE-XS/2 

033B-" 

EB 

XCHG 


0330“ 

DD5E0F 

MOV 

E,C.XF(X) 

033F “ 

1600 

MVI 

DjO 

0341“ 

CD 0421"' 

CALL 

DVDEM2 

0344-* 

A7 

ANA 

A 

0345“ 

ED52 

DSBC 

D 

0347 ' 

EB 

XCHG 


0348“ 

DD6E0B 

MOV 

LrC.CX(X) ? HL.--CX 





TDL Z80 

CP/H DISK AS 

SEMBLER VERSION 2 

o 

tt X. 

1 PAGE 10 

CHARS - 





034B"' 

DD660C 

MOV 


Hf C.CX+1CX) 

034E-' 

C9 

RET 





? SUB TO COMPUT 

E LEFT LOWER LIMIT OF WINDOW 



; AND SET IT 





? LLL RETURNED 

IN HL, DE IS CLOBBERED 

034F 

DD5E07 

SCXLLLs MOV 


E 7 C.XS(X) 

0352"' 

DD5608 

MOV 


Di C.XS+1< X ) 

0355 •" 

IB 

OCX 


D 

0356? 

CD 042A" 

CALL 


DVDE2N 

0359'' 

EB 

XCHG 



035A " 

DD5E0F 

MOV 


E,C.XF(X) 

035D-" 

1600 

MV I 


D, 0 

035F-" 

CD 0422"' 

CALL 


DVDE2 , 

0362"' 

19 

DAD 


D 

0363"' 

DD750B 

MOV 


C. C X (X) 7 L. 

0366"' 

DD740C 

MOV 


C.,CX+1XX),H 

0369"' 

C9 

RET 





? SUBROUTINE 

TO 

RESET CX TO LEFT SIDE OF SCREEN 

036A"’ 

D5 

RESCX: PUSH 


D 

036B"' 

E5 

PUSH 


H 

036C"' 

CD 034F" 

CALL 


SCXLLL 

036F"' 

El 

POP 


H 

0370" 

D1 

POP 


D 

0371"' 

C9 

RET 





? SUBROUTINE 

TO 

RESET CX AND CY 

0372"' 

CD 036A"' 

RESCXY« CALL 


RESCX ; DO CX 



5 AND FALL INTO 

» a u 



; SUBROUTINE 

TO 

RESET CY TO TOP OF WINDOW 

0375 •" 

D5 

RESCY 5 PUSH 


D 

0376"' 

E5 

PUSH 


H 

0377 "' 

CD 031C"' 

CALL 


COMUTL 

037A "' 

DD750D 

MOV 


C.CY(X)7L 

037D" 

DD740E 

MOV 


C.CY+1(X )7 H 

0380"' 

El 

POP 


H 

0381 "' 

D1 

POP 


D 

0382"' 

C9 

RET 





? ROUTINE TO 

LOAD DE WITH CX 


DD5E0B 

GETCXs MOV 


E,C»CX<X) 

0386 •** 

DD560C 

MOV 


D,C.CX+1(X) 

0389 *' 

C9 

RET 





5 SAME FOR CY 


038A"' 

DD5E0D 

GETCYs MOV 


E,C.CY(X) 

038D"' 

DD560E 

MOV 


D,C.CY+1(X> 

0390" 

C9 

RET 





", ROUTINE TO 

SET CX 

0391 •" 

DD730B 

SETCXs MOV 


C. CX(X )7 E 

0394 " 

DD720C 

MOV 


C, C X+1 ( X ) 7 D 

0397" 

C9 

RET 





? SAME FOR CY 


0398"' 

DD730D 

SETCYs MOV 


C.CY(X),E 

039B 

DD720E 

MOV 


C.CY+ 1 (X),D 

039E"' 

C9 

RET 





5 SUBROUTINE 

TO 

DRAW A BOX OF SIZE XF,YF AT 



", X+CX , Y+CY 

OF 

COLOR 3 

039F" 

3E03 

PUTCURs MVI 


A, 3 
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03 A1 -■ 

180F 


JMPR 

B0XXY2 



03A3 

DDCB1256 

BOXXYls 

BIT 

ERABIT vC» C1(X) 



03 A7 •" 

3E00 


MVI 

A 7 0 



03 A9 

2807 


JRZ 

B0XXY2 



03 AB"' 

DD7E11 

BOXXYFs 

MOV 

A 7 C.CO(X) 



03 AE •" 

E603 

JOIMXY s 

AN I 

!~5 



03B0 •" 

C&04 


ADI 

4 



03B2"' 

FD7715 

BOXXY25 

MOV 

BX * MOD(Y),A 



03B5 

DD6E03 


MOV 

L.C.X(X) 


' 

03B8 •- 

DD6604 


MOV 

HiC.X+1<X) 



03BB •“ 

CD 0383-' 


CALL 

GETCX 



03BE 

19 


DAD 

D 



03BF "' 

2B 


DCX 

H 



03C0 

FD7501 


MOV 

B X „ X (Y ) 7 L 



03C3 *'* 

FD7402 


MOV 

BX.X + l(Y )7 H 



03C&" 

DD6E05 

”3 

MOV 

L 7 C» Y ( X ) 



03 C9 •" 

DD6606 


MOV 

H,C. Y+KX) 



03CC 

CD 038A"' 


CALL 

GETCY 



03DF 

19 


DAD 

D 



03D0 

FD7506 


MOV 

BX.Y(Y),L 



03D3 

FD7407 

a 

MOV 

BX.Y+l(Y),H 



031) 6 

DD5610 

■} 

MOV 

D 7 C.YF(X) 



03D9 •" 

DD5E0F 


MOV 

E.C.XF(X) 



03DC •" 

AF 


XRA 

A 



03DD •" 

FD730B 


MOV 

BX.XS(Y),E 



03E0" 

FD770C 


MOV 

BX„XS+1(Y >,A 



03E3 "' 

FD7210 


MOV 

BX.YS(Y),D 



03E6" 

FD7711 

n 

MOV 

BX.YS+1(Y),A 



03E9"' 

CD 0000s07 

T 

U ALL 

DOBOX 



03EC "' 

C9 


RET 






5 SUBROUTINE 

TO PREPARE STACK 

FOR 

CALL TO BOX-LIKE SUBRO 



UTI ME 







? A=MODE PARAMETER TO STUFF 



03ED- 

FD7715 

BLDBOXs 

MOV 

BX.MOD(Y>,A 

tt 

STUFF MODE 

03F0 ■" 

DD5E03 . 


MOV 

E, C. X ( X ) 

tt 

XFER X 

03F3-' 

DD5604 


MOV 

D,C.X+l< X) 



03F6 " 

FD7301 


MOV 

BX.XCY>7E 



03F9" 

FD7202 


MOV 

BX.X+l(Y),D 



03FC "' 

DD5E05 


MOV 

E, C. Y (X ) 

7 

XFER Y 

03FF "■ 

DD5606 


MOV 

D,C.Y+1(X) 



0402"' 

FD7306 


MOV 

BX.Y(Y),E 



0405"' 

FD7207 


MOV 

BX» Y+l(Y )7 D 



0408 -' 

DD5E07 

7 

MOV 

E,e.xs(X) 

7 

X SFZE 

040B " 

DD5608 


MOV 

D,C.XS+1(X) 



040E " 

FD730B 


MOV 

BX.XS(Y>,E 



0411" 

FD720C 


MOV 

BX.XS+1 { Y),D 



0414"' 

DD5E09 


MOV 

E,C.YS(X) 

ii 

r'. ; , 7 

Y SIZE 

0417" 

DD560A 


MOV 

D,C.YS+1(X) 



041A * 

FD7310 


MOV 

BX.YS(Y )7 E 



04 ID" 

FD7211 


MOV 

BX.YS+1(Y),D 



0420 -' 

C9 


RET 
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0421 ■ 


IB 


5 DIVIDE DE-1 BY 2 
DVDEM2S DCX D 

? FALL INTO... 

? DIVIDE DE BY 2 


DE=DE-1 


0422 •" 

A7 

DVDE2S 

ANA 

A 

0423" 

7A 


MOV 

A,D 

0424 

IF 


RAR 


0425"' 

57 


MOV 

D* A 

0426 •" 

7B 


MOV 

A,E 

0427" 

IF 


RAR 


042S"' 

5F 


MOV 

Ei A 

0429" 

i. j y 


RET 




? DIVIDE DE BY 

2 THAN NEGi 

042A" 

CD 0422" 

DVDE2N5 

CALL 

DVDE2 

042D " 

7 A 


MOV 

A,D 

042E 

2F 


CMA 


042F "' 

CT“7 


MOV 

D» A 

0430 "' 

7B 


MOV 

A,E 

0431 

2F 


CMA 


0432"' 



MOV 

E, A 

0433"' 

13 


I NX 

D 

0434 •" 

C9 


RET 




? TRANS 

FER 3 X 

5 CHARACTEI 



? CHAR 

PASSED 

IN A 



; IX=WINDQW DESC 



? D=Y> 

E=X 


0435 "' 

FE20 

DIS35S 

CPI 

n 

0437" 

3002 


JRNC 

. LOK 

0439"‘ 

3E3F 

..UBADs 

MV I 

A 7 

043B" 

FE7B 

..LOK: 

CPI 

7BH 

043D "’ 

SOFA 


JRNC 

. . UBAD 



5 LOWER 

CASE CHARACTER???' 

043F" 

47 


MOV 

B, A 

0440" 

DD4E12 


MOV 

C.C.C1(X) 

0443"' 

FE61 


CPI 

61H 

0445"' 

380B 


JRC 

. .UPER 

0447" 

D620 


SUI 

20H 

0449"' 

47 


MOV 

B, A 

044A" 

79 


MOV 

A, C 

044B"' 

3C 


I NR 

A 

044C"' 

E603 


AN I 

3 

044E "' 

2001 


JRNZ 

. . NOTZ 

0450 •" 

3C 


I NR 

A 

0451"' 

4F 

..NOTZs 

MOV 

C, A 

0452"' 

79 

..UPERs 

MOV 

A, C 5 

0453"' 

07 


RLC 


0454"' 

07 


RLC 


0455"’ 

DD4E11 


MOV 

C, C. GOT X ) 

0458"' 

A9 


XRA 

C 

0459" 

E60C 


AN I 

OCH 

045B "' 

A 9 


XRA 

C 

045C" 

D319 


OUT 

XPAND 



? LOOKUP CHARACTER 

045E"' 

78 


MOV 

A ? © 


TO THE SCREEN 


CHAR IN RANGE? 


SET COLORS 
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0461" 

4F 

MOV 

0462"' 

0600 

MVI 

0464" 

60 

MOV 

'0.465' 

69 

MOV 

0466" 

29 

DAD 

0467" 


DAD 

0468" 

09 

DAD 

0469" 

01 048E" 

LX I 

046C •" 

09 

DAD 

046D" 

E5 

PUSH 

046E •" 

7A 

MOV 

046F •" 

C.603 

ADI 

0471" 

57 

MOV 

0472" 

ID 

DCR 

0473" 

CD 0000s OF 

CALL 

0476" 

D1 

POP 

0477' 

CBB4 

RES 

0479" 

F628 

OR I 

047B" 

D30C 

OUT 

047D-" 

0605 

MVI 

047F •" 

1A 

..LOOPS LDAX 

0480" 

77 

MOV 

0481"' 

OO 

INX 

0482 ' 

3600 

MVI 

0484" 

D5 

PUSH 

0485 •" 

11 0027 

L.X I 

0488"' 

19 

DAD 

0489-^ 

D1 

POP 

048A"' 

13 

INX 

048B"' 

10F2 

DJNZ 

048D"' 

C9 

RET 

53X5 CHAR 
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C, A 

Bj 0 

H,B 
Li C 
H 
H 
B 

B,F0NT35 

B 

H 

A, D 

D, A 
E 

R2A 

D 

6 , 1-1 

28H 

MAGIC 

B, 5 5 SET LOOP CTR 

D 

M, A 
H 

M i 0 
D 

D, 39 
D 
D 
D 

„.LOOP 
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+++++ : 

SYMBOL TABI. 

|*W m|h m|w m|i» m|m 







AASN 

005F 

ADVCX 

0308 *" 

ARG 

0000 s 04 

X 

ARGSTK 

6088 

BACKGR 

65CC 

BLANK 

0020 

BLDBOX 

03ED •" 

I 

BOTRAM 

6000 

BOTTOM 

64 A 9 

B0XXY1 

03 A 3 •" 

B0XXY2 

03B2 *" 


BOXXYF 

03 AB 

BX« MOD 

0015 

BX.X 

0001 

BX. XS 

000B 


BX. Y 

0006 

BX. YS 

0010 

CHARSL 

65DD 

CHARWI 

00BB-' 

I 

CH0UT8 

OOBO" 

CLEARS 

60CA 

CNTRL 

OOOC 

CNTRLC 

65CD 


CNTRL.0 

65D9 

CNTRIJJ 

0015 

CNTRLZ 

65E4 

COMURL 

0331 •" 


COMUTL 

0318" 

COSINE 

0000!05 X 

CPHLDE 

0000:06 X 

CPLARE 

611C 


CPLSIZ 

0140 

CR 

GOOD 

CSBLOK 

668D 

CSFLAG 

6260 


CURCX 

6814 

CURCY 

6816 

CURREN 

64A5 

8 u 80 

0011 


C.C1 

0012 

C.CX 

00 OB 

c« 8Y 

GOOD 

C. DP 

0013 


C.ST 

0002 

C. X 

0003 

C.XF 

OOOF 

C. XS 

0007 


C. Y 

0005 

C- YF 

0010 

8«Y S 

0009 

DCHAR 

01C6 -' 

I 

DDTOM 

658E 

DEVBL 

6589 

DEVCLO 

6579 

DEVCL1 

657B 


DEVCL2 

657D 

DEVCLS* 

657F 

DEVCL4 

6581 

DEVCLS 

6583 


DEVCL6 

6585 

DEVCL7 

6587 

DEVFB 

65CB 

DEVHCB 

658F 


DEVMO 

658B 

DEVNM 

65B7 

DEVNT 

6580 

DEVTNA 

65BB 


DEVTNB 

65BF 

DEVTNC 

6583 

DEWA 

65BD 

DEWAR 

6579 


DEWB 

6581 

DEWBL 

6591 

DEWC 

6585 

DEWD 

65C9 


DEVON 

65B9 

DEWS 

6587 

DEVXCD 

65B3 

DEVYCD 

65B5 


DIS35 

0435" 

DIS57 

oill-' 

DOBOX 

0000s 07 X 

DOLPLH 

62E8 


DOLPPT 

62EA 

DUMBST 

6577 

DVDE2 

0422" I 

DVDE2N 

042A •" 


DVDEM2 

0421" 

EDBCNT 

64AD 

ED88NT 

64A7 

EDLONG 

6812 


EDMODE 

681C 

EDIMAME 

64A1 

EDNCX 

680C 

EDNCY 

680E 


EDNEWS 

64A5 

EDOCX 

6808 

EDOCY 

680A 

EDPN 

6806 


EDPO 

6804 

EDF'TRC 

64AB 

EDPTRL 

64A9 

EDSTR 

681A 


ERABIT 

0002 

ERRPGM 

0000s08 X 

ER.ARA 

002F 

ER.ARG 

0034 


ER.ASN 

0015 

ER.BOX 

001A 

ER.CHN 

0002 

ER.CMD 

00 IF 


ER.CNV 

0016 

ER„COR 

00 IB 

ER.CTL 

0036 

ER.DEL 

0026 . 


ER.DIM 

0030 

ER.DIV 

0018 

ER. DP 

0037 

ER.DSK 

0019 


ER.EDT 

0035 

ER.FMT 

0038 

ER.FNF 

0018 

ER.FOR 

0028 


ER.IMP 

0003 

ER.LAB 

0025 

ER.MAC 

0022 

ER.NAE 

002D 


ER.NAM 

0029 

ER„MEG 

003A 

ER.NOT 

0023 

ER.NUL 

0039 


ER.NUM 

002B 

ER. NXT 

001D 

ER.OFL 

0017 

ER.OPN 

0014 


ER.OVE 

00 IE 

ER.PAR 

002A 

ER.REN 

0028 

ER„RET 

0024 


ER.SEP 

0021 

ER.SNP 

0031 

ER.SPC 

002E 

ER.STK 

0004 


ER.SW 

0032 

ER.TER 

0020 

ER.UFL 

0033 

ER.UNF 

0027 


EXTDEL 

002E 

E.HVAL 

0002 

E.LVAL 

0001 

E.SIZ 

0005 


E.TYP 

0000 

E. VAL 

0001 

FCNTH 

65D2 

FCNTI 

65D3 


FCNTJ 

65D4 

FCNTK 

65D5 

FCMTL 

65 D 6 

FCNTV 

65E0 


FCNTY 

65E3 

FIRST 

64A3 

FLAGS 

658B 

FONT35 

04SE-' 


FOREGR 

6 5 DO 

FRAGSI 

0400 

FREELS 

65 E 5 

FSTDOL 

648C 


FSTINT 

62E8 

FWDF’TR 

65E7 

GETCX 

0383 I 

GETCY 

038A " 

I 

HCAREA 

6593 

INC5IY 

0000S09 X 

INCRO 

65E9 

IMIVDA 

0185 y 

I 

INIVDM 

0174" I 

INIVDR 

0166-' I 

INIVDX 

0197" 

ISNL 

0000 s 0A 

X 

JOINTS 

0048*" 

JOINXY 

03 AE •" 

JUNK 

6542 

KBLOCK 

65F1 


KEYFLG 

67FF 

KEYPTK 

6533 

KEYTRK 

67F7 

KISNL 

0000 s OB 

X 

LARGE 

0094" I 

LC57 

05CE"' 

LF 

OOOfi 

LISTON 

65E2 


MACST'U 

6536 

MACTOP 

625E 

MAGIC 

0008 

MAXFRG 

0040 


MNMX 

65EB 

NBLKB 

0000 

NBL.KM 

0001 

NEWBOT 

6810 


NL 

OOOA 

NSADDR 

6802 

NUMBUF 

64 Ac* 

OLDCHR 

64 AO 


OLDCUR 

649F 

OLDKEY 

649D 

OLDXY 

65EF 

ONEBUF 

6729 


OPRL 

0014 

OPRSP 

655B 

OPRSTK 

6547 

OPRSZ 

655D 


DUTCH 

0000s08 X 

OUTOFF 

62E7 

PCNT 

A! r iFi£ 

PIXVAL 

65ED 


PNXT 

0000sOD X 

POINTE 

64A7 

PONOFF 

65DA 

POUTCH 

0000 s OE 

X 

PRINTR 

6540 
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PUTCUR 

039F-* 

I 

R2A 

oooo; 

OF 

X 

RAMEND 

7FFF 

RAMSTR 

6900 

RANSHT 

655F 


RESCX 

036A 


I 

RESCXY 

•0372 * 

I RESCY 

0375 

RMDTMP 

6538 


RUBACK 

0005 



RUBOUT 

007F 

SAVESP 

625C 

SCNEED 

0004 


SCROLE 

0000 s 

10 

X 

S'CRWIN 

67CD 

SCXLL.L 

034F 

SETCX 

.0391 

I 

SETCY 

0398 *** 


I 

SFREELs 

11 X 

SMALL 00A3" 

i 

SOPRSP 

6530 


SOPRSZ 

653F 



STACK 

60C8 

STAKTO 

6000 

STRSIZ 

6800 


SUBSTU 

6534 



TAB 

0009 

TAF'BUF 

64B3 

TAPCON 

64AF 


T APPRO 

64B1 



TBFEND 

6533 

TEMPHD 

60CA 

TEMPS 

62E5 


TEXT 

oooo *■* 


I 

TEXTA 

OOOF*" 

TEXTS 

0029 

TEXTX 

0035" 


THEM 

0000 s 

12 

X 

TMPARG 

67 AD 

TOP 

O j o 

TOUTCH 

01C5" 


TS 

0035-' 



TSS 

0042"' 

TSX 

0094 

TTYBEG 

6261 


TTYEND 

62E1 



TTYINT 

62E3 

TTYF’TR 

62E1 

TXTWIN 

67E2 


UARTFL 

649C 



USREND 

65 F1 

V3PTR 

6573 

VDCHAR 

649E 


VBNLF 

65CF 



VIPLH 

6545 

VOICEO 

6563 

WRMODE 

65EE 


XPAND 

0019 



ZGIM2 

0001 

ZGREMD 

68 ID 

ZDUTCH 

01AF " 

I 

$AADR 

0010 



$AODRF 

0007 

$ADDRI 

0005 

$ADDRS 

0009 


$ANY 

001A 



$ANYNA 

FFFC 

$ANYVA 

FFFE 

*ARGPT 

0011 


♦BGP.TR 

OOOF 



$BNDL 

0007 

$CALLE 

OOOD 

$CMDAD 

0018 


♦C.PLBL 

002A 



$CSBLO 

0028 

$DATAP 

0007 

$DOLDE 

0001 


$DOLOO 

0002 



$DVAL 

OOOO 

$END 

001C 

$FADR 

OOOE 


iUFLAGS 

0002 



$FORBL 

0024 

$FORPT 

OOOB 

*FVAL 

0006 


$GOSUB 

001A 



$ I ADR 

OOOC 

$INF'BU 

0018 

*INPPT 

0016 


$1VAL 

0004 



*KEYBL 

0026 

$LENGT 

0001 

♦LINPT 

0005 


$LOCPT 

0009 



$MIBBL 

0022 

$MIBEN 

00 IB 

♦NAMAD 

000A 


$NAME 

OOOA 



$NASCI 

0009 

$NDEL 

0080 

UNLINK 

0003 


$NULL 

0002 



$NVALU 

0005 

$REPEA 

00 IE 

$RVSTU 

0013 


$SAME 

0020 



$bAbLI 

OOOA 

$SLEN 

0006 

$STRAD 

0008 


$STRPT 

0003 



*taf 

OOOO 

$TYPE 

OOOO 

$USE 

0005 


.BLNK. 

OOOO s 

03 

X 

.DATA. 

oooo# 

X .PROG. 

OSCE 
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El 06 
0050 
0028 


DSKSHIT=1 
INSERT AsS.ASM 
REMARK / 


•s 

■s -s -s 
-s-s-s 

ft¬ 

's- 

•s 

•s 

ft- 

'S 

ft-ft-ft-sft-ft-ft- 

“WHEN YOU CARE ENOUGH TO PROGRAM 
THE VERY BEST" 

ZGRASS V2 * 00000000 

JAY FENTON, MOLA DONATO, AMD TOM DEFANTI 
(C) 1978 


© 

© 

© 

© 

© 

© 

© 

© 

© 

§ 

© 

© 

© 

© 

© 

© 

©BY 
© 

© 

©/ 

.INSERT AiZRAM.ASM 
. INSERT As IGEQIJ. ASM 
.PREL 
.IDENT 
.EXTERN 
.EXTERN 
.EXTERN 
.EXTERN 
.EXTERN 
.EXTERN 
.EXTERN 
.EXTERN 
.EXTERN 
.EXTERN 
.INTERN 
„INTERN 
.INTERN 
", EQUATES s 
? CPM ADDRESSES 
BD0S=0E106H 
FCBADR=5CH 
DBUFPT—40 


TAPE10 

ALLOC 

ALSTR 

ARC 

CNTCK 

ENDSTR 

ERRPGM 

INC5IY 

INCUSE 

NXTVAL 

PI 

GETDSK 
PUTTAPE 
UARTINT 


BDOS ENTRY POINT 
DEFAULT FOB 
ADDR OF NEXT BYTE 


IN DISC 


0013 
0014 
001 6 
0015 
OOOF 
0010 


5 CPM FUNCTION CODES." 
CPDELETE=19 ! DELETE 

CPREAD=20 5 READ 

CPCREATE=22 


CPWRT TE=21 
CPOPEN=15 
CPCLOSE--16 


", OPEN 

! GOT IT YET? 


00A5 FNCHAR=0A5H 

0001 TXRDY=1 


BUFFER 
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.IFMDEF BSKSHIT, C 
? OUTPUT TO TAPE COMMAND 




M.CMDCPUTTAPE, 

. . PUTX,0,PI,.. 

PUTA,..PUTS3C 

oooo •" 

18 

+PUTT APE s 


.BYTE $CMDADR 

0001 

06 

4* 

. BYTE 

(. . PUTX-PUTTAPE >716+1 

0002"' 

00 

4* 

.BYTE 

0 


0003"' 

0000"OD 

4* 

.WORD 

PI 


0005“ 

0012" 

4- 

. WORD 

..PUTS 


0007“ 

0015"' 

4* 

. WORD 

..PUTA 


000’?"' 

505554544150+ 

.ASCIZ 

/PUTTAPE/ 




+ 3 




0011 

00 


„ BYTE 

0 


0012"' 

CD 0000 5 06 

..PUTSs 

CALL 

ARG 


0015 “ 

040A1E 

..PUTA s 

. BYTE 

$IVAL,$NAME, 

^REPEAT 

0018"' 

FDE5 


PUSH 

Y 


001 A" 

E5 


PUSH 

H 


00 IB" 

CD 01BD" 


CALL 

TOUTEST 


00 IE"' 

CD 0000nOA 


CALL 

INC5IY 


0021" 

FD7E00 

..PUTLs 

MOV 

A10 (Y > 

? GET TYPE 

0024"' 

FEOA 


CPI 

$NAMADR 

. is IT A NAME? 

0026“ 

2025 


JRNZ 

..SKIP 

; NOPE 

0028"' 

FD6602 


MOV 

H i 2 < Y) 


002B-" 

FD6E01 


MOV 

L,1(Y> 


002E"' 

E5 


PUSH 

H 


002F"' 

CD 0000 s OC 


CALL 

NXTVAL 




; WRITE 

A LEADER 


0032"' 

CD 01FE"' 


CALL 

WRTLDR 


0035"' 

E3 


XTHL 


5 WRITE OUT FILENAME 

0036"' 

CD 0216" 


CALL 

QUTNAM 


0039" 

El 


POP 

H 


003A"' 



INX 

H 


003B" 

7E 


MOV 

ATM 


003C" 

2B 


DCX 

H 


003D" 

CD 0157"' 


CALL 

SIZBC 


0040"' 

7E 

..OUTLs 

MOV 

A,M 

? GET CHAR 

0041"' 

CD 020B" 


CALL 

OUTTAP 

? WRITE IT OUT 

0044" 

28 


INX 

H 

5 WE DO IT TO A 

0045" 

OB 


DCX 

B 


0046" 

78 


MOV 

At B 


0047" 

B1 


ORA 

c 


0048" 

20F6 


JRNZ 

..OUTL 


004A "' 

CD OlFE" 


CALL 

WRTLDR 

5 WRITE TRAILER 

004D"' 

CD 0000s 0A 

..SKIPS 

CALL 

INC5IY 


0050"' 

FD7E00 


MOV 

A, 0< Y > 

*, AT END OF LIST? 

0053"' 

FEOO 


CPI 

$TAF 


0055"' 

20CA 


JRNZ 

..PUTL 


0057"' 

CD 01E5"' 


CALL 

SHUTOF 

? TURN OFF MOTORS 

005A"' 

El 


POP 

H 


005B"' 

FDE1 


POP 

Y 


005D"' 

C9 


RET 

- 


005E"' 


..PUTXs 





3 

5 INPUT FROM TAPE COMMAND 
.IFNDEF DSKSHIT*C 
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005E 

005E-' 
005F" 
0060'' 
0061 •" 
0063 •' 
0065-' 
0067 •' 

006F •" 
0070 ' 
0073- 
0076' 
0077" 
0079-' 
007C " 

007F -' 
0082-' 
0085" 
0086"' 
0088" 

008A"' 

008D •' 

0090 " 
0093 -' 
0094 •" 
0096 -' 
0097" 
0098 •" 
0099-' 
009A •" 
009B'" 
009D 
00 AO -' 
00A3 " 
00A6 •" 
00A9 ■" 
OOAB •" 
OOAC-" 
00 AD •' 
00 AF "' 
00B2' 
00B3-" 
00B4-" 
00B5 " 
00B6 •" 
00B9 •" 
ODBC " 
OOBE- 


GETDSKs 

M.CMDCGOTTAPE, . 
18 +GOTT APE s 

07 + .BYTE i 

00 + .BYTE < 

00C7•" + .WORD i: 

0070-' + .WORD , 

0073' + .WORD , 

474F54544150+ .ASCIZ 

+ 1 

00 .BYTE 


GETX i 0,GETTAPE,..GETA,..GETS]C 
.BYTE UCMDADR 
.GET X-GOTTAPE)/16+1 


. BYTE 0 
.WORD GETTAPE 
„ WORD ..GETS 
. WORD ..GETA 
„ ASCIZ /GOTTAPE/ 


CD 0000s06 

040A1E 

E5 

FDE5 
CD 01 AC •" 

CD 0000sOA 

FD6602 
FD6E01 
7E 

FE02 


CD 0164' 

CD OOOOs05 

CD 0188 
A7 

2807 

13 

OB 

78 

B1 

20F3 

CD 0000508 
CD 00005 OB 
FD6602 
FD6E01 
360A 


3600 
01 0003 


/ 2 

CD OOOOsOA 
FD7E00 
P EOO 
20BF 


GETS s 
, GETAs 


. BYTE 

CALL 

. BYTE 

PUSH 

PUSH 

CALL 

CALL 


ARG 

$IVAL,$ 

H 

Y 

TINPEST 
INC5IY 


fMAME,^REPEAT 


IS THIS NAME ANY GOOD? 

LOOPS MOV H,2(Y) 

MOV L,1(Y> 

MOV A»M 

CPI $NULL. 

JRNZ ..SKIP 

AWAIT APPEARANCE OF FILENAME 
CALL NAMATH 

ALLOCATE MEMORY 


CALL 
COPY UNTIL 


..CLQPs 


..GEOP 


SKIP 


STOP 


CALL 

ANA 

JR Z 

STAX 

I NX 

DCX 

MOV 

ORA i 

JRNZ 

CALL I 
CALL 

MOV I 

MOV 

MV I ! 

I NX 
INX 
MV I 
LX I 
DAD 

MOV ! 

INX 

MOV ! 

CALL 

MOV i 

CPI 

JRNZ 

THE MOTOR 


ALSTR 
NULL READ 
TARGET 
A 


DID WE GET A NULL' 


GEOF 


..CLOP 
EIMDSTR 
INCUSE 
H 7 2 (Y > 

L, 1<Y) 

M, $NAMADR 
H 

H 

M» 0 

B,$NVALUE- 

B 

Mi E 
H 

M 7 D 
INC5IY 
A 7 0 (Y) 

TTAF 
.„LOOP 
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OOCO " 

CD 01E5 

CALL 

SHUTOF 

00 C 3 •” 

FDEl 

POP 

Y 

oocs -■ 

El 

POP 

H 

00C6" 
00C7 

C9 

RET 

..GETXs 

M.CMDCGETTAPE, 

..GETX 1 0»AFIXCG3 ?..GETA,..GETS 

.0007 ^ 

18 

+GETTAPES 

.BYTE $CMDADR 

00 C 8 ”' 

OA 

.+ .BYTE 

(..GET X-GETTAPE)/16+1 

00C9 ”' 

00 

+ .BYTE 

0 

OOCA •" 

6 3 4 U 

+ U WORD 

AFIXCG3C ( "G"~ 101Q)•«• 16+FSTINT3 

oocc •** 

00D9 ”' 

+ .WORD 

..GETS 

OOCE 

OODC" 

+ .WORD 

..GETA 

OODO ”' 

47455454415: 

0+ .ASCI2 

h-3 

/GETTAPE/ 

00D8 ”' 

00 

. BYTE 

0 

00D9" 

CD 0000s06 

»nGETS » CALL 

ARG 

OODC”' 

040A1E 

..GETA» .BYTE 

$1VAL,*MAME,^REPEAT 

OODF •" 

E5 

PUSH 

H 

OOEO”' 

FDE5 

PUSH 

Y 

00E2-" 

CD 01AC" 

L ALL 

TI IMPEST 

00E5 r 

CD 0000s OA 

CALL 

INC5IY 

GOES *'* 

FD6602 

..LOOPS MOV 

H,2CY) 

OOEB 

FD6E01 

MOV 

L 5 1 (Y) 

00 EE 

7E 

MOV 

A,M 

OOEF" 

FE02 

CPI 

$NUL..L 

00F1 *'* 

2053 

JRNZ 

..SKIP 

00F3 

CD 0164" 

CALL 

NAMATH 

00F& - ' 

CD 0188"' 

CALL 

TAPGET 

00F9”' 

57 

MOV 

D*A ; D=TYPE 

OOF A’" 

CD 0188”' 

CALL 

TAPGET 

OOFD 

6F 

MOV 

L 5 A ” L=LEN 

00 FE ”' 

CD 0188"' 

CALL 

TAPGET 

0101 •- 

5F 

MOV 

S IGNORE NEXT 

E,A 5 E-FLAGS: 

3 BYTES 

0102’" 

CD 0188"' 

CALL 

TAPGET 

0105’" 

CD 0188"' 

CALL 

TAPGET 

0108"' 

CD 0188" 

CALL 

TAPGET 

01 OB’" 

7D 

MOV 

A 7 L 

0100’" 

F5 

PUSH 

PSW 

010D" 

CD 0000s 04 

CALL 

ALLOC 

0110”' 

FI 

POP 

F'SW 

0111"' 

E5 

PUSH 

H 

0112"' 

72 

MOV 

M,D 5 SET TYPE 

0113"' 

2«**‘ 

I NX 

H 

0114"' 

23 

INX 

H 

0115”' 

72 

MOV 

M 7 E 5 AND FLAGS 

0116”' 


r INX 

H 

0117’" 

23 

INX 

H 

0118”' 

23 

INX 

H 5 TO USE COUNT 

0119" 

3600 

MV I 

M,0 5 ZERO THAT OUT 

01 IB” 


INX 

H 

011C" 

CD 0157" 

CALL 

SIZBC 

01 IF" 

EB 

XCHG 

DY GOT 

? FUDGE SIZE TO SHOW 

0120" 

21 FFFA 

LX I 

H,-6 


ALREA 
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0123 

09 

DAD 

B 

0.124" 

EB 

XCHG 

3 DE=BYTES LEFT TO READ 

0125-' 

CD 0188"' 

..CLOPs CALL 

TARGET 

0128-' 

77 

MOV 

Mr A 

0129" 

23 

INX 

H 

012A-" 

IB 

DCX 

D 

012B- 

7A 

MOV 

Aj d 

012C 

B3 

ORA 

E 

012D"' 

20F6 

■JRNZ 

u„CLOP 

012F" 

Di 

POP 

D 

0130” 

CD 0000 s OB 

CALL 

INCUSE 

0133**‘ 

FD6602 

MOV 

H,2(Y) 

0136*- 

FD6E01 

MOV 

Lr1(Y) 

0139- 

360A 

MVI 

M,$NAMADR 

013B- 

23 

INX 

H 

013C- 

J.'.. 0> 

INX 

H 

013D- 

3600 

MVI 

Mr 0 

013F- 

01 0003 

LX I 

B, m VALUE-2 

0142- 

09 

DAD 

B 

0143- 

73 

MOV 

Mr E 

0144- 

22 

INX 

H 

0145- 

72 

MOV 

Mr D 

0146- 

CD 0000sOA 

..SKIPS CALL 

INC5IY 

0149" 

FD7E00 

MOV 

A r 0 ( Y ) 

014C"' 

FEOO 

CPI 

$TAF 

014E- 

2098 

JRNZ 

„.LOOP 

0150"' 

CD 01E5- 

CALL 

SHUTOF 

0153- 

FDE1 

POP 

Y 

0155- 

0156- 

0157- 

El 

C9 

POP H 

RET 

. . GET X s 

5 SUBROUTINE TO CONVERT ALLOCATOR SIZE CODE IN BYTE COUN 
T IN BC 

3 IN A=ALLOC SIZE CODE 

5 OUT BC*# BYTES IN BLOCK 

0157- 

E5 

SIZBCs PUSH 

H 

0158- 

6F 

MOV 

Lr A 

0159- 

2600 

MVI 

Hr 0 

015B- 


INX 

H 

015C"' 

29 

DAD 

H 

015D"' 

29 

DAD 

H 

015E"' 

29 

DAD 

H 

015F- 

29 

DAD 

H 

0160 - 

44 

MOV 

Br H 

0161- 

4D 

MOV 

CrL 

0162"' 

0163"' 

El 

C9 

POP H 

RET 

? NAME MATCH SUBROUTINE 

0164- 

CD 0188- 

NAMATHs CALL 

TARGET 

0167" 

FEA5 

CPI 

FNCHAR 

0 BR¬ 

20F9 

JRNZ 

5 WE GOT A NAME 

NAMATH 

- POINT AT FIRST CHAR OF RAM NAME 

UISE "' 

FD6602 

MOV 

Hr 2(Y) 

016E- 

FD6E01 

MOV 

Lrl(Y) 

0171" 

01 0009 

LX I 

Br$NASCII 
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0174" 

09 

DAD 

B 

0175"‘ 

CD 0188" 

..MATC* CALL 

TARGET 5 GOODIE 

0178-' 

BE 

CMP 

M 

0179-' 

20E9 

.JRNZ 

NAMATH 5 NILCHO 

017B-" 

xi O 

INX 

H 

017C" 

7E 

MOV 

A,M 

017D •" 

A7 

ANA 

A 

017E-" 

20F5 

JRNZ 

.„MATC 



? IGNORE FURTHER SHIT 

01 SO - " 

CD 0188 - " 

..IGNOs CALL 

TARGET 

u i y u * 

FEOA 

CPI 

ML 

0185-" 

20F9 

JRNZ 

..IGNO 

0187" 

C9 

RET 




? SUBROUTINE TO 

RETRIEVE CHARACTER 



. prom TAPE IMP 1 

JT BUFFER 



5 PERFORM CONTROL C CHECK 

0188"' 

E5 

TARGETS PUSH 

H 

0189" 

D5 

PUSH 

D 

018 A - " 

CD 0000s07 

».CNTCs CALL 

CIMTCK 

013D" 

ED5B 64B1 

LDED 

TAPPRO 

0191 •" 

2A 64AF 

LHLD 

T ARSON 

0194 - " 

7D 

MOV 

A 7 L 

0195“ 

BB 

CMP 

E 

0196" 

OC;p2 

JRZ 

» CNTC 

0198"' 

56 

MOV 

D,M 

0199**’ 

CD 024B" 

CALL 

BUMPTR 

019C" 

22 64AF 

SHL.D 

TAPCON 

019F - " 

3A 67FF 

1.... D A 

KEYFLG 

01A2 " 

AA 

XRA 

D 

01 A3 

E6C0 

ANI 

OCOH 

01A5 

A A 

XRA 

D 

01A6 - " 

D324 

OUT 

LEDS 

01 AS - " 

7A 

MOV 

A 7 D 

01.A9" 

D1 

POP 

D 

01A A"' 

El 

PuP 

H 

01AB 

C9 

RET 




5 SUBROUTINE TO 

ESTABLISH TAPE INPUT 

01 AC" 

F3 

TINPESs DI 


01 AD"' 

21 64B3 

LX I 

H,TAPBUF 

01 BO" 

22 64AF 

SHLD 

TAPCON 

01B3 ■" 

22 64B1 

SHLD 

TAPPRO 



5 RESET THE UART 

01B6 "■ 

CD 01CF •" 

CALL 

RESUART 

01B9" 

3E73 

MVI 

A,0111001IB 

01BB •" 

1806 

JMPR 

SETBS 



? SUBROUTINE TO 

ESTABLISH TAPE OUTPUT 

01BD" 

F3 

TOUTESTs 

DI 

01 BE" 

CD 01CF" 

CALL 

RESUART 

01 C 1 " 

3E72 

MVI 

A 7 0111001OB 

01C3" 

FDCB0146 

SETBSs BIT 

0,1(Y) 

01C7 - " 

2002 

JRNZ 

„„NOFL 

01 C9 " 

EE07 

XRI 

0000011IB 

01CB - " 

D323 

« » NOFL s OUT 

BAUDSEL 

01 CD" 

FB 

El 


01CE •" 

C9 

RET 
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5 ROUTINE TO 

RE! 

3ET THE UART 

01 OF" 


RESUARTs 



01CF-" 

3EAD 

MV I 


A 7 OADH 

01D1 - 

D32B 

OUT 


AUARTS 

01D3 •- 

3E40 

MV I 


A i 40H 

01D5-" 

•D32B 

OUT 


AUARTS 

01D7 

3ECD 

MV I 


A 7 OCDH 

01D9 

D32B 

OUT 


AUARTS 

01DB" 

3E37 

MV I 


A ■> 37H 

01 DO'" 

D32B 

OUT 


AUARTS 

01 OF-' 

3E01 

MV I 


A, 1 

01 El-' 

32 6490 

STA 


IJARTFL 

01E4 •" 

C9 

RET 





? SUBROUTINE 

TO 

SHUT OFF MOTORS 

01E5 •- 

3E38 

SHUTOF! MVI 


A,00111000B 

01E7-' 

D323 

OUT 


BAUDSEL 

01E9 •" 

AF 

XRA 


A 

01EA" 

32 649C 

STA 


IJARTFL 

01 ED" 

3EAE 

MV I 


A 7 OAEH 

01EF •" 

D32B 

OUT 


AUARTS 

01 FI"' 

3E40 

MVI 


A 7 40H 

01F3-" 

D32B 

OUT 


AUARTS 

01F5-' 

3ECE 

MVI 


A 7 OOEH 

01F7-" 

D32B 

OUT 


AUARTS 

01F9 **’ 

3E27 

MVI 


A 7 27H 

01FB-' 

D32B 

OUT 


AUARTS 

01FD •" 

C9 

RET 





5 SUBROUTINE 

TO 

WRITE LEADER/TRAILER 

01FE "' 

E5 

WRTLDR." PUSH 


H 

01FF-" 

F5 

PUSH 


PSW 

0200 -' 

21 7530 

LX I 


H 7 30000 

0203"' 

2B 

. . Ul A1T« DU X 


H 

0204 

70 

MOV 


A, H 

0205 •" 

B5 

ORA 


L 

0206" 

20FB 

JRNZ 


..WAIT 

0208 " 

FI 

POP 


PSW 

0209:" 

El 

POP 


H 

020A •" 

09 

RET 





? SUBROUTINE 

TO 

OUTPUT CHARACTER THRU UART 

020B •" 

F5 

OUTTAP! PUSH 


PSW 

0200" 

DB2B 

..OUT15 IN 


AUARTS 

020E -' 

E601 

ANI 


TXRDY 

0210"' 

28FA 

■JR Z 


..QUTi 

0212" 

FI 

POP 


PSW 

0213"' 

D32A 

OUT 


AUARTD 

0215-' 

09 

RET 





5 SUBROUTINE 

TO 

OUTPUT FILENAME HEADER 

0216" 

3EA5 

OUTNAMs MVI 


A 7 FNCHAR 

0218 •- 

CD 020B-" 

CALL. 


OUTTAP 

02 IB" 

01 0009 

LX I 


B,$NASCII 

021E "' 

09 

DAD 


B 

02 IF"' 

7E 

..OUTLs MOV 


A 7 M 

0220"' 

A7 

ANA 


A 

0221 •" 

2806 

JRZ 


„.DONE 

0223-' 

CD 020B-" 

L* ALL 


OUTTAP 
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0226**’ 

23 

I NX 

H 

0227 **’ 

18F6 

•JMPR 

..OUTL 

0229“ 

3E0A 

..DONEs MVI 

A, ML. 

022B"' 

CD 020B-" 

CALL 

OijTTAP 

022E •" 

C9 

RET 




5 UART CHARACTER INPUT ROUTINE 

022F •“ 

08 

UARTINTs 

EXAF 

0230 **’ 

D9 

EXX 


0231-' 

2A 64B1 

L.HLD 

TAPPRO 

0234-' 

44 

MOV 

B,H 

0235*“ 

4D 

MOV 

L* t L. 

0236-' 

CD 024B" 

CALL 

BUMPTR 

0239**’ 

ED5B 64AF 

LDED 

TAPCON 

023D*“ 

7D 

MOV 

A ? L 

023E -' 

BB 

CMP 

E 

023F •“ 

DB2A 

IN 

AUARTD 

0241' - 

2804 

.JRZ 

..FULL 

0243" 

02 

STAX 

B 

0244-' 

22 64B1 

SHLD 

TAPPRO 

0247" 

D9 

..FULLS EXX 


0248" 

08 

EXAF 


0249-' 

FB 

El 


024A -' 

C9 

RET 




3 SUBROUTINE TO 

INCREMENT POINTER 

024B-" 

23 

BUMPTRs INX 

H 

024C 

7D 

MOV 

A i L 

024D" 

FE 89 

CPI 

TBFEND&OFFH 

024F -' 

CO 

RNZ 


0250-' 

21 64B3 

LX I 

H,TAPBUF 

0253-' 

C9 

RET 

"1 




J 

.IFDEF 

DSK'SHI T, C 


3 GET COMMAND 

5 THIS COMMAND RETRIEVES A STRING FROM DISC 

? FOR EACH NAMES 
3 BUILD FOB AND OPEN 
3 GET LARGEST POSSIBLE MEMORY BLOCK 
3 READ UNTIL EOF 
5 RETURN REMAINING MEMORY 

M. CMDCGETDSK, . . GETX, 0, AFIX CGI, . „ GET A, . . GET 1 1 
.BYTE 0 

..GETis CALL ARG 

..GETA s „BYTE $NAME,^REPEAT 5 GET STRING,STRING.... 

PUSH H 

PUSH Y 

CALL CPMON 

3 BUILD FCB AND OPEN FILE 

..LOOPS CALL FCBBUILD 

CALL FCBOPEN 

5 ALLOCATE MEMORY FOR STRING 

CALL ALSTR 5 HL=TOP,DE-FIRST,BC=#B’ 

TES 

3 LOOP TO COPY FROM INPUT BUFFER TO ALLOCATED STRING 
..GETBs CALL DINBYT 
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CPI ODH 5 FILTER OUT CARRIAGE RE 

TURNS 

•JRZ . . GETS 

CPI Z•"-40H ; END OF FILE 

■JRZ . . GEOF 

STAX D 

DCX B 5 DECREMENT BYTES LEFT 

INX D 5 ADVANCE POINTER 

MOV A,B 5 OUT OF MEM? 

ORA C 

JRNZ ..GETS 5 NO 

JMP DSKERR 

? DONE WITH FILE -STUFF NULL AND FREE REMAINING BYTES 
..GEOFs CALL ENDSTR 

CALL INCUSE 

MOV Hi 2(Y) ? POINT NAME AT US 

MOV LillY) 

MVI M? fNAMADR 5 MAKE IT A NAME 

I NX H 

INX H 

MVI M 7 0 5 CLEAR FLAGS 

LXI B,*NVALUE~2 

DAD B 

MOV MiE 

INX H 

MOV M,D 

CALL FCBCLOSE 5 CLOSE OUT THE FILE 

CALL INC5IY 

MOV A,0(Y) ? MORE NAMES? 

CPI $TAF 

JRNZ u . LOOP “ YES 

CALL CPMOFF 

POP Y 

POP H 

RET 

..GETX: 

? PUTDSK COMMAND 

5 THIS ROUTINE PUTS OUT STRINGS ON THE DISC 

tt 

7 

PUTTAPEs 

MCMDC PUTDSK, . . PUTX, 0, PI, . . PUT A, . . PUTS II 
.BYTE 0 

..PUTSs CALL ARG 

.„PUTAs .BYTE $NAME,$REPEAT 

PUSH H 

PUSH Y 

CALL GPMON 

„ LOOPS 

CALL FCBBUILD 

CALL FCBDELETE 

CALL FCBCREATE 

MOV L,1(Y) 

MOV H 7 2(Y) 

MOV A,M 

CPI T-NULL 
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JR Z 

„ . FUBB 

CALL 

NXTVAL 

MOV 

A, M 

CPI 

$STRADR 

JRNZ 

„.FUBB 

? OK - DO IT 


LX I 

B ? $SASC11 

DAD 

B 

..CLOPS MOV 

A,M 

ANA 

A 

JRZ 

..CDON 

CALL 

DOUTBYTE 

INX 

H 

JMPR 

„.CLOP 

..CDONs 


..FUBBs MVI 

A> Z "-40H 


CALL DOUTBYTE 

CALL FCBFLUSH 

CALL FCBCLOSE 

CALL INC5IY 

MOV A j 0(Y) 

CPI $TAF 

JRNZ ..LOOP 

CALL CF'MQFF 

POP Y 

POP H 

RET 

..PUTXs 

5 DELETE ROUTINE 
F'CBDELETE ' 

MV I C 7 CF'DELETE 

JMP BDFCB 

FCBCREATEs 

MVI C,CPCREATE 

CALL BDFCB 

I NR A 

JZ DSKERR 

•JMPR RESBUF 

? FLUSHER 
FCBFLUSHs 

LDA DBUFPT 

CPI SON 

RZ 

5 SUBROUTINE TO WRITE OUT A SECTOR 
OUTSECs MVI CtCPWRITE 

CALL BDFCB 

ANA A 

■JNZ DSKERR 

RESBUF s MVI A i 8 OH 

STA DBUFPT 

RET 

; ROUTINE TO OUTPUT BYTE 
DOUTBYTEs 

CPI ML 5 STICK IN CR CHARS 

JRNZ 


DOUT 
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DOUTi 


5 TURN 
CPMOMs 


CPMOFF 5 


HARTINT 


", ERROR 
DSKERRs 


5 USES 
DINBYTs 


MV I 

A 7 ODH 

CALL 

. . DOIJT 

MV I 

A 7 ML 

PUSH 

H 

MOV 

H, A 

L.DA 

DBUFPT 

MOV 

L, A 

MOV 

A 7 H 

MV I 

H, 0 

MOV 

M, A 

MOV 

A 7 L 

I NR 

A 

STA 

DBUFPT 

CZ 

OUTSEC 

POP 

H 

RET 


3N CPM 


DI 


MVI 

A, 10H 

OUT 

0F8H 

MVI 

A,2 

OUT 

OFFH 

El 


RET 


DI 


MVI 

A, 11H 

OUT 

0F8H 

MVI 

A, 3 

OUT 

OFFH 

NOP 


NOP 


NOP 


NOP 


NOP 


El 


RET 


' OUT! 


MVI 

A, 55H 

OUT 

LEDS 

CALL 

CPMOFF 

ERROR 

ER.DSK 

RET 


JTINE TO FETCH Cl 

SUFFER 

AT 8 OH 

PUSH 

H 

LDA 

DBUFPT 

ANA 

A 

URNZ 

.„NOTZ 

ER IS ZERO - GET 

PUSH 

B 

PUSH 

D 


FROM DISC 


NONZERO? 


ANOTHER DISC BUFFER 
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LX I 

D , 80H 



MV I 

L i 28 



CALL 

BDOSFU 



LX I 

D,FCBADR 



MV I 

C , CPREAD 



CALL 

BDOSFU 



ANA 

A 



JNZ 

DSKERR 



POP 

D 



POP 

B 



MV I 

A i 80H 



» .NOTZs MOV 

Li A 

It 

7 

POINT AT BYTE IN BUFFE 

R 




I NR 

A 

tt 

7 

UPDATE BUFFER POINTER 

STA 

DBUFPT 



MV I 

Hi 0 



MOV 

A,M 

tt 

7 

A = CHAR 

POP 

H 



RET 




; FCBBUILD 




5 CONSTRUCT FCB 

GRABBING FILENAME 

FROM NAME ON IY STACK 

5 EXTENSION USED IS „ ZGR 



FCBBUILD! 

MOV Hi 2(Y) 


; HL=PTR TO NAME 

MOV 

L i 1 (Y) 



L.X I 

Bi$NASCII 

tt 

7 

HL=FIRST CHAR OF NAME 

DAD 

B 



L.X I 

D,FCBADR 

n 

7 

DE = FCB 

XRA 

A 



STAX 

D 



I NX 

D 



MV I 

Bi 8 



5 COPY FILE NAME OVER 



..MORES MOV 

A,M 

tt 

7 

GET CHAR 

ANA 

A 

tt 

7 

IS IT A NULL? 

•JRZ 

. . NULL 



STAX 

D 

t* 

7 

NO - STUFF IT 

I NX 

D 



I NX 

H 



D JNZ 

. .MORE 



JMPR 

. . FULL 



5 PARTIAL NAME - 

- PAD WITH BLANK 

o 


.-NULLs MVI 

A,BLANK 



.-BLNKs STAX 

D 



INX 

D 



DJ.N'Z 

.„BLNK 



7 

..FULLS MVI 

A, --I - 



STAX 

D 



INX 

D 



MVI 

Ai G 




STAX D 

I NX D 

MV I A,-R- 

STAX D 
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I NX D 

5 FILL REMAINING AREA WITH ZEROS 
MVI B,21 

XRA A 

..CLRs STAX D 

I NX D 

DJNZ ..CLR 
RET 

5 SUBROUTINE TO OPEN EXISTING FILE FOR INPUT 

FCBOPEN5 PUSH B 

PUSH D 

PUSH H 

LXI D,FOBADR 

MVI C,CPOPEM 

CALL BDOSFU 

INR A 

JZ DSKERR 

5 OPEN WAS GOOD ~ RESET BUFFER SHIT 
XRA A 

STA DBUFPT 

POP H 

POP D 

POP B 

RET 

? SUBROUTINE TO CLOSE EXISTING FILE 

FCBCLOSEs PUSH H 


PUSH 

D 

PUSH 

B 

LX I 

D> FOBADR 

MVI 

C,CPCLOS 

OAL.L. 

BDOSFU 

pop 

B 

POP 

D 

POP 

H 

RET 


BDFCBs 


LX I 

D,FCBADR 

BDOSFUs 


DI 


I MO 


MOV 

ft) C 

OUT 

LEDS 

XRA 

A 

OUT 

OFFH 

MVI 

A,4 

OUT 

OF1H 

MVI . 

A,05H 

OUT 

INMOD 

..NSEXs El 


CALL 

BDOS 

DI 


STA 

POINTER 

XRA 

A 

OUT 

OF 1H 

MVI 

A, 8 
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. . AbEX« 
..BSEXs 

1 


OUT 

INMOD 

I M2 


MV I 

A, 2 

OUT 

OFFH 

l_ DA 

POINTER 

OUT 

LEDS 

El 


RET 



. END 
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AASN 

005F 

ALLUL 

0000 s 04 

X 

ALSTR 

0000 s 05 

X 

ARG 

OOOOs 06 

ARGSTK 

60CC 

AUARTD 

002A 


AUARTS 

002B 


BACKGR 

65CC 

BAUDSE 

0023 

BDOS 

El 06 


BLANK 

0020 


BOTRAM 

6000 

BOTTOM 

64A9 

BSAUD 

0022 


BUMPTR 

024Ef' 


CHARSL 

65DD 

CLEARS 

60 C A 

CNTCK 

0000s07 

X 

CNTRL 

oooc 


CNTRLG 

65CD 

CNTRLO 

6509 

CNTRLU 

0015 


CNTRLZ 

65E4 


CPCLOS 

0010 

CPCREA 

0016 

CPDELE 

0013 


CPLARE 

611C 


CF'LSIZ 

0140 

CPOPEM 

GOOF 

CF'READ 

0014 


CPWRIT 

0015 


CR 

OOOD 

CSBLOK 

6680 

CSFLAG 

6260 


CURCX 

6814 


CURCY 

6816 

CURREN 

64A5 

C«CO 

0011 


C. Cl 

0012 


C.CX 

00 OB 

C.CY 

OOOD 

C.DP 

0013 


C. ST 

0002 


C. X 

0003 

C. XF 

GOOF 

C.XS 

0007 


C.Y 

0005 


C . YF 

0010 

C. YS 

0009 

DBUFPT 

0028 


DDTON 

6.5C E 


DEVBL 

6589 

DEVCLO 

6579 

DEVCL1 

657B 


DEVCL2 

657D 


DEVCL3 

657F 

DEVCL4 

6581 

DEVCL5 

6583 


DEVCL 6 

6585 


DEVCL7 

6587 

DEVFB 

65 CB 

DEVHCB 

658F 


DEVMO 

658B 


DEVNM 

65B7 

DEVNT 

6580 

DEVTNA 

65BB 


DEVTNB 

65BF 


DEVTNC 

65C3 

DEVVA 

65 BD 

DEWAR 

6579 


DEVVB 

65C1 


DEVVBL 

6591 

DEVVC 

65C5 

DEVVD 

65C9 


DEVVN 

65B9 


DEWS 

65C7 

DEVXCD 

65B3 

DEVYCD 

65B5 


DOLPLH 

62E8 


DOLPPT 
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